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Non tutti / leoni 

sono veramente Leoni. 



Ecco come 
riconoscere un 
vero programma 
Leoni informatica 


Quando per tl tuo • .. 

home-computeril negoziante 

ti offre un programma a basso costo, dìf- 

fidane. Nella quasi totalità dei cast si tratta di una 

copia duplicata, che per di più può non girare bene. Le RJ^WìMìé 

conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si- 
gillata. All'Interno, allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni informatica è stata la 
prima in Italia ad offrire la garanzia a vita, [ assistenza ed \\ continuo aggiorna- 
mento dei suoi programmi, Al tuo negoziante chiedi quindi la qualità, l assisten 
za e l'aggiornamento: chiedi i programmi Leoni Informatica, 

R ichiedi a Leo ni Informatica l'ele nco g uida ai suo i prog rammi . 



Leoni informatica non ti abbandona mai 


Leoni informatica Srl ■ SvFluppo Software - Vendita Hardware 
Via Valsolda, 21 - 20143 Milano - Tel. 02 8467370-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 
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DOMANDE ■ RISPOSTE 

» ■ — '' i 

Tra le numerose domande che pervengono in Redazione, vengono 
scelte in prevalenza quelle di interesse generale, rinviando, spesso sine 
die, la pubblicazione di quelle ritenute meno interessanti oppure già 
affrontate di recente su Commodore Computer Club , 

Ci capita infatti , purtroppo, di esaminare schede in cui vengono 
richiesti argomenti già trattati sullo stesso fascicolo da cui la scheda è 
tratta ! 

Invitiamo pertanto i lettori , specie se principianti, a sfogliare con 
attenzione le pagine della nostra rivista e a leggere artìcoli che, pur se 
apparentemente non li interessano, contengono purtuttavia preziose 
informazioni 5U istruzioni particolari (POKE, PEEK, SYS ed altre ) o 
tecniche insolite di programmazione, registrazione dì dati , programmi 
eccetera. 


Commodore 128 

□ Che cosa è il Commodore 128? (Vari 
lettori) 

• Di ufi misterioso computer di nome 128 ri 
sentì parlare (a livello di pettegolezzo) fin 
dalFestate del 1983, Nessun responsabile del- 
la Commodore* però,, era in grado (o autoriz- 
zato) 3 parlarne e sembrò che quelle voci si 
concretizzassero in seguito nd Commodore 
16 e nel Plus 4, 

L’anno scorso, però, pettegoli più accanili 
tornarono a far circolare mezze voci su un. 
nuovo computer che si è rivelato essere, sta- 
volta con certezza* il Commodore 128. Si ten- 
ga presente che quanto leggere viene scritto a 
luglio e f probabilmente, la pubblicazione del- 
ia presente risposta coincide con la presenta- 
zione ufficiale del nuovo modello allo SM AU 
di Milano dì settembre. 

Di questa macchina, che Gloriano Rossi 
della rivista COMMODORE è riuscito a toc- 
care con mano alla fiera di Hannover della 
scorsa primavera, si sa al momento molto po- 
co, se non che viene venduta negli U S A ad 
una cifra leggermente superiore ai7AQ dollari 
e che possiede alcuni requisiti tecnici che do- 
vrebbero far uscire la Commodore dalla stasi 
di vendite avvertita dall 'intero settore degli 
bomc computer. 


Se, come ci auguriamo* la nuova macchina 
verrà presentata allo SMAU* tutte le infor- 
mazioni tecniche ari essa relative saranno dif- 
fuse per mezzo dì depliant pubblicitari. 

Ci soffermeremo pertanto, in queste righe, 
ad esaminare la collocazione del nuovo com- 
puter che* a nostro avviso > può interessare 
maggiormente il lettore curioso. 

Il Commodore 128 è totalmente compatibi- 
le col software del Commodore 64 per il sem- 
plice fatto che, al suo interno* sono presenti 
tutti gli integrati attualmente usati noi C-64. 
Ciò vuol dire che è possibile caricare un qual-, 
siasi programma (gioco, gestionale. L.M.* 
utility ed altro) con le stesse perifèriche e 
vederlo girare in modo perfettamente identi- 
co a come girava sul C-64 Questo accorgi- 
mento dovrebbe, nelle intenzioni dei respon- 
sabili della osa americana, favorire racquieto 
della nuova macchina da parte di coloro che 
mal sopportano i limiti del proprio apparec- 
chio ma„ contemporaneamente* non vogliono 
rinunciare al s/w accumulato in precedenza 
nell 1 utilizzo del C-64, 

19 Commodore 128 si trasforma anche in un 
super C-64 grazie al nuovo Basic 7.0 che sem- 
bra esser più potente e completo del BASIC 
IBM e di quello MSX messi insieme. Immagi- 
nate di utilizzare il C-64 dotato dei comandi di 
utility dd la se ri e Com modo re 8000 (se rie pro 


fessionate Commodore)* inserite i comandi 
del Simon’s BASIC* ed aggiungete quelli del- 
la Super Expander oltre a quelli del Commo- 
dore 16 senza dimenticare di ampliare la me- 
moria RAM a 128 Kbytes. La frittata che ne 
viene fuori prende il nome di Commodore 
128 k che non obbliga più, come nel C-64, a 
gestire grafica e suono (tanto per citare due 
se zoni di s/w) attraverso noiose* complicate e 
pericolose istruzioni POKE, 

Il Commodore 128 si rivolge* inoltre* all'u- 
tenza più esigente della fascia professionale 
offrendo perfino l'opzione CP/M grazie al mi- 
croprocessore incorporato 7/80 A capace di 
supportare il sistema operativo della Digital 
Research, 

In questo modo la Commodore* con un unico 
apparecchio dal prezzo ridicolo* offre al pub- 
blico non solo Terionne biblioteca s/w accu- 
mulatasi dall “inizio della produzione del C- 
64, ma anche quella sviluppala attraverso il 
sistema operativo CP/M particolarmente uti- 
lizzato nelle aziende. 

Col 128 viene presentato un nuovo drive, 
"trivalente’* anch’esso, che si comporta come 
un normale 1541 se utilizzato col 128 nella 
opzione C-64, La velocità del 1571 (nome con 
cui viene battezzato il nuovo drive) aumenta 
di circa 5 volte (e la sua capacità passa da 150 a 
360 Kbytes) se il C-128 viene usato nella con- 
figurazione 128. Rendendo attivo il sistema 
operativo CP/M, ai dischetto ospita* infine, 
410 Kbytes e la velocità di trasferimento dati 
sì incrementa fino a 12 volte quella normal- 
mente ottenibile coi C-64 ed il drive 1541. 

La bassa velocità di trasferimento dati, in 
effetti, costituiva (e costituisce tuttora) un 
forte handicap per il C-64, specialmente nei 
programmi gestionali (archìvi) in cui è neces- 
sario memorizzare, alterare o rintracciare un 
dato tra mighaia di altre informazioni. 

Il motivo della produzione della nuova 'li- 
nea'' 128 è dovuto anche ad altri fattori, tra 
cui la presenza sul mercato di nuovi apparec- 
chi* in alcuni dei quali viene addirittura mon- 
tato i! microprocessore 68000 a 16 bit, che 
presentano la novità nel nuovo processore ed 
un prezzo al pubblico decisamente contenuto. 

La battaglia, dunque, si scatenerà da una 
parte sul fronte del nuovo microprocessore 
(carente però dì s/w adeguato), e. dall'altra, 
sulle trincee dell'intramontabile 2S0A. capa- 
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ce di supportare migliaia di programmi gestio- 
nali lui (ora validi, in alleanza col 6510 che 
vanta centinaia di programmi destinati all'in- 
èi al lenimento c alla didattica. 

Pur se non si può prevedere u vincitore, 
possiamo affermare che, nello scontro fra ti- 
tani, a godere sai finalmente, 1 utilizzatore del 
computer. 



MSX e Commodore 64 

Li Listate per il ( -64 il linguaggio V1SX? (Ro- 
bert Giordani - Rocca Priora ) 

* Ì/MSX è un sistema operativo brevettato 
al quale si sono adeguate ruuTtero.se Casa co- 
si rutilici di homcr computer. Tra queste figu- 
rano in massa i giapponesi e molti europei, 
L MSX dovrebbe costituire !a controffensiva 
dal resto del mondo per battere la concorren- 
za rappresentata, soprattutto, dalie america- 
ne Commodore c Alari, l utti gii apparecchi 
MSX possono infatti far girare un qualsiasi 
programma scritto con un qualunque modello 
MSX proprio perchè, nonostante i modelli 
siano esteticamente diversi tra loro, hanno lo 
stesso modo di operare e di gestire le 
informazioni* 

Sarebbe possibile, da un punto di vista 
strettamente tecnico, implementare ( ripor- 
tare, trasferire) l'MSX su un qualsiasi compu- 
ter,, ed anche sul Commodore 64. 

Come puoi immaginare, però, il sistema 
MSX è coperto da brevetto e, per i motivi 
delti prima, sarebbe llh controsenso conce- 
derlo alla Commodore in modo da applicarlo 
ai suoi computer. altrimenti addio 
controffensiva! 



Out of memory error 

7" Molli lettori segnalano che, dopo il carica- 
mento di alcuni programmi, tentando di effet- 
tuare una copia su disco o nastro compare il 
messaggio “OlT OF MEMORY ERRORE 
che ne impedisce J'opera/Jtme. 

• L'argomento e piuttosto complesso e, allo 
scopo di facilitarne la comprensione anche ai 
principianti, è in preparazione un articolo 
esplicativo piuttosto dettagliato, 

I ra breve verrà pubblicato {sull'altra rivi- 
sta su nastra ^Commodore Club’ 1 della Sy- 
stems Editoriale) un programma che consen- 


te di trasferire da- verso disco- nastro un qual- 
siasi file di dati o programmi. 

Ai piti impazienti ed esperti diamo comun- 
que alcune indicazioni che, opportunamente 
studiate, possono essere utili per risolvere il 
problema: 

a/ quando un programma BASIC.' viene cari- 
cato nel modo consueto, i puntatori 45 e 46 ne 
individuano la fine. In modo totalmente auto- 
matico gli altri puntatori (da 47 a 54) vengono 
modificati dal sistema operativo in modo da 
indicare i inizio e la fine delie variabili, degli 
arrav, delle stringhe; 

b f effe tu andò una verifica di quanto detto 
(dopo aver caricato un programma BASIC) si 
nota, in particolare, che i puntatori delle va- 
riabili (47-54) indicano un’area di memoria il 
cui indirizzo è sempre maggiore di quello di 
fine programma; 

c / caricando un programma in L.M, con la 
sintassi ‘LI” (sia lavorando col registratore sia 
col drive per dischetti) si indica al computer di 
allocare tale file* programma nelle stesse lo- 
cazioni in cui si trovava al momento della 
registrazione. In molti di questi ultimi casi il 
programma occupa una zona di memoria po- 
sta al di là dell' indirizzo utile per consentire 
l'allocazione delle siringhe; 
d / tentando di effettuare una registrazione, 
questa può essere effettuata a patto di non 
indicare il nome del programma che, come è 
nolo, è una stringa a lutti gli effetti. Ciò è 
possibile, però, solo lavorando col registrato- 
re dato che si può salvare un programma col 
solo comando SAVE, omettendone il nome; 
e/ tentando, al contrario, di effettuare un sal- 
vataggio indicando il nome del programma 
( indispensabile lavorando col drive) il sistema 
operativo l ‘crede”, dopo aver esaminato i 
puntatori relativi allo spazio disponibile per le 
stringhe, che non vi sia memoria libera per 
a fioca rie. Il messaggio che ne risulta non deri- 
va, pertanto, dalla mancanza di byte RAM a 
disposizione, ma dal fatto che il computer non 
so dove... piazzare la stringa -nome del 
programma; 

f / iti casi come questo è necessario alterare i 
valori dei puntatori relativi alle stringhe in 
modo da creare artificiosamente spazio per 
depositarvi il nome (basta che puntino alme- 
no 16 caratteri olire la fine del BASIC). 



NEW SQFT S.R.L. 
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Nastri per stampante 

Prezzo 


Commodore MPS 801 

11.000 

Commodore MPS 803, 

Tatìy fiO ... 

12,00 0 

Commodore MPS 803 

14,500 

Commodore 0024 

„ 6.100 

Epson MX70,fl0 1 82,83,ERC'04 1 
FX80, RX80. FX80, 

Commodore 4022, 

8022, IBM F7C, Sharp 

CE332P, MZ 90P5A, PC320Ì .... 

B.20G 

Commodore 3022, 3023, 

Epson TXB0, Itoti 83QQR, 

OKI 80, B2A. S3À, 92, 93, 

Rharf) P3 

.... 3.000 




,. 9,000 


Commodore 0023P. MPP 1361 
Sharp 8G-P4A, Centronics 15Q 

... 3.950 

Commodore 8026, 

3027, 8032 

... 6.950 

Dischetti SF/DD k 10 

Scoiti box tfr^spcife-nie) .jmiuHiiminm.ii 

38.000 

Dischetti DF/DO x 10 

(coi- box ir a soa renici 

43.000 



Disco per pulizia delle tortine 
Questo può essere usalo per 
drive con una o due facce- 
li liquido basta per circa 

1 6 applicazioni 

12.200 



Usate la seconda taccia del 
V/S Mini disco. Tagliate a metà il costo dei 
Dischetti 1 Foratore di Dischetti per usare 
anche Tal Ir a faccia del disco. 

Per esempio Commodore 20/64, 

Apple 4, Alari, acc. a soie 1 2,70Q 

Tutti ì prezzi sono IVA inclusa 

Pagamento contrassegno. Pe> ordini ssjperior i a 
L, 50-000 spasiti postali a nostro carico. 

SPECIALE SCONTI A TUTTI 
t RIVENDITORI 
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Due drive e un computer 


□ E ! passi hil e collega re due drive per dischet - 
ti ad un solo computer? (Sergio Serra - 
Oristano) 

* Se Utilizzi il programma qui pubblicato 
puoi risolvere il problema a patto di attenerli 
rigidamente alle regole seguenti; 
a f collega il computer al primo drive e questo 
al secondo con gli opportuni cavetti tenendo 
spenti gli apparecchi: ricordiamo che effettua- 
re un collegamento con gli apparecchi accesi 
può comportare la distruzione di alcuni circui- 
ti integrati; 

b / accendi il computer ed il drive al quale vuoi 
cambiare il numero di device. Carica* con la 
sintassi consueta (o digita), il breve program- 
ma riportato in questa pagina. Rispondi cor- 
rettamente a tutte le domande. In particolare 
assegna il numero 9 come identificatore di 
device. 

cf quando compare 11 solito READY accendi 
il secondo drive 

Questo conserverà il consueto numero (8} 
di periferica. 

Se per errore assegni io stesso numero ai 
due drive rischi di bloccare il sistema e di 
dover spegnere e riaccendere gli apparecchi. 
Volendo* invece, cambiare nuovamente il nu- 
mero di periferica devi riutilizzare il program- 
ma proposto. 

Attenzione: se spegni e poi accendi il com- 
puter, lii personalizzazione dei drive può a 
volte perdere l'informazione, quindi occorre 
ripetere la procedura descritta, 

10 INPUT "N. VECCHIO 
DEV ICE J DV 

15 IF DV<6 OR DV > 1 5 T 
HEN 10 

20 INPUT r, N* NUOVO DE 
VICE '* ; DN 

25 IF DN<3 OR DN>15 T 
HEN £0 

38 OPEN 15.DV, 15 

40 PRINT# 15, ,l M-R u CHR* 
C255)CHR$(255) 

50 GET #15,A$:A*flSCCA 
$+CHR$ té))» TY =0 ; H I 
*0 

60 IP A^E4£ OR A*213 
THEN TY- 12 l GOTO 10 
0 J REM DRIVE 8050 
OR 4048 

70 IF fl=254 THEN TY=1 
1 S f GOTO 100: REM D 
RIVE 2031 OR 1541 

80 IF A=22 6 THEN TY=5 
0 : GOTO 100: REM OR 
I VE 3040 

80 PRI NT "DRIVE NON CD 
MPATIBILE" sCLOSE 1 

5 * EhJD 

100 PRINT# 15, 

CTY)CHRì<HI)CHRtC2 

>CHR$(32+DN)CHR$<6 

4+DN) 

110 CLOSE 15 


I .e locazioni del tempo 

□ Quali sono le funzioni delle locazioni 160, 
161, 162 nel Commodore 64 e nel Vie 20 e 163, 
164, 165 nel C-16? (Michete Caccìapuoti - 
Latina ) 

m Durante il loro funzionamento, j computer 
Commodore man tengono attivo un orologio 
che ha una singolare unità di misura: il sessan- 
tesimo di secondo. 

Dovresti sapere che in una locazione di me- 
moria RAM è possibile memorizzare un dato 
il cui valore numerico è compreso tra zero e 

255, 

Ebbene* il tuo computer, senza che te ne 
renda conto, incrementa il contenuto della 
locazione 162 (caso del Vie 20 e €-64) al tra- 
scorrere di ufi sessantesimo di secondo. Ciò 
vuol dire che da zero passa ad uno* da uno a 
due così via fino a 255. A questo punto, dato 
che non è possibile memorizzare un numero 
maggiore di 255* la locazione 162 toma a zero 
mentre la locazione precedente (161) viene 
incrementata di un'unità. Allo stesso modo 
viene incrementatoli contenuto di 160 

Quando anche questo raggiunge un valore 
tale che l'elaborazione delle tre locazioni for- 
nisca le ore 24:00:00* le tre locazioni tornano 
a zero ed il ciclo ricomincia nuovamente. 

Non appena si accende Tapparecchio, le tre 
locazioni sono poste a zero. E' possibile* co- 
munque* modificare il loro contenuto con 
semplici istruzioni del tipo FOKE. Da quanto 
detto risulta piuttosto complicalo impostare 
l'ora ma* per fortuna* i progettisti della Com- 
modore sono venuti incontro agli utenti ricor- 
rendo alla variabile riservata TIS, Questa, 
funga sempre sei cifre* può essere utilizzata 
da II’ uteme per comunicare al computer l’ora 
desiderata. Un’altra variabile, a sola lettura 
(può esser letta ma non modificata}* indica il 
numero di sessantesimi di secondi trascorsi 
dall’ora 00:00:00, 

Allo scopo dì studiare meglio le locazioni di 
memoria ed il loro comportamento, prova a 
digitare il seguente mtcro programma (idoneo 
per il C-16). Alia domanda * l CHE ORE SO 
NO” rispondi, dapprima "QOOOOCF’ ed in se 
guìto, dopo aver premuto il tasto Ruhfttup e 
fatto ripartire il programma col solito RUN, 
digita 120000 o qualsiìisi altro orario, purché 
nella lunghezza di sei cifre, 

10 INPUT “CHE ORE SQNO";TìS 
20 PR!NTCHRS(147) 

30 PRINT CHR$(19) 

40 FORI+1TG3 
50 PRINT PEEKf 162+J);:NEXT 
60 PRINT 
70 PRINT Tl, Tl$ 

80 GOTO 

Utilizzando il C-64 oppure il Vie 20* è ne- 
cessario modificare il valore presente nella 
riga 50 ponendo 159 al posto di 162, 


Doppia battuta 

C A volte, quando batto alcuni tasti (non tut- 
ti}, sullo schermo vengono visualizzaci due ca- 
ratteri invece di uno solo. E' un difetto? (Lu- 
ciano Lucchetti - Pietra Ligure) 

* Il modo in cui viene trasmesso un comando 
al computer avviene in due fasi: meccanica ed 
elettronica. Quando baiti un tasto viene, co- 
me si dice in gergo, chiuso un circuito che, 
opportunamente individuato da una routine, 
viene decodificato ed interpretato. Durante 
la fasa di decodifica* velocissima, il tasto do- 
vrebbe restare perennemente abbassato. Per 
alcuni difetti meccanici, dovuti molto proba- 
bilmente ad un uso intensivo della tastiera 
(word processor), la molla di ri tomo del tasto 
effettua un rimbalzo che genera, talvolta, un 
nuovo contatto elettrico. 

Il computer non può capire che la seconda 
battuta È accidentate e crede che il tasto sia 
stato premuto due volte, Ecco, dunque* il 
motivo della doppia battuta, difetto cui, pur- 
troppo * è difficilissimo porre rimedio. Se ti 
può consolare, pensa che anche il mio compu- 
ter, che utilizzo da molto tempo per se riva re 
gli articoli di C.C C * incomincia a.., 
balbettare, 


Le stampanti a margherita 

□ Vorrei maggiori informazioni sulla stam- 
pante H01 a margherita prodotta dalla Com- 
modore edi in particolare la sua compatibilità 
con proprogranimi di w/p (Stefano Minardi - 
Firenze) 

* La stampante a margherita 1 101 è compati- 
bile con i word processor WORD PRO 3 e 
con EA*SY SCRIPT e. sicuramente* con molli 
altri word/pro c data base La velocità di 
stampa è più che dignitosa e le altre caratteri- 
stiche sono sicuramente interessanti soprat- 
tutto tenendo conto del modesto prezzo della 
periferica. 

E’ ovvio che, non potendo programmare il 
singolo carattere, possono insorgere ìncom- 
patibilià con programmi che consentono di 
disegnare in alta risoluzione (diagrammi, isto- 
grammi eccetera) che, cornee noto, ricorrono 
intensivamente alla modifica della matrice di 
punti. 

Come peritine le stampami a margherita, è 
possibile sostituire con grande facilità la mar- 
gherita allo scopo di ottenere caratteri di tipo 
diverso TI motivo per cut non tutti i rivendito- 
ri trattano questo articolo £ dovuto al fatto 
che nidi è un apparecchio destinato più a 
professionisti (uffici), che ad hobbystì. 

Alessandra de Si mane 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Di fatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket, Qui 
termina V uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono,,* jn poche parole si aprono* 


GLI ALTRI DISCHETTI 

chiusi un punto qui. 
un punto Là fasciano 
gran parli: tki 

lembi Apèrti. _ . 




DISCHETTI MEMQREX 

con lembi oompkumtnte 
sàkfaii so Luna 
la supciileu:. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di ro vinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio g * 

- ricordate: non tutti i dischetti jMlMÈtf 
sono uguali*,. 

Memorex vi mette al ■ ||Éh 

riparo da qualsiasi jpjv 

inconveniente. riHl 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti* 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel discvdrive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
li Solid-Scam BondingT 
Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


è importante 


BUA ROUOH 5- M EMQREX S-P A . 
Divisione Computar Madia, 

Via Ciro Monditi, 14 Tel. 02/713551 
2Q12S MILANO MI 


À Burroughs Company 













Prima di scegliere 

un computer, leggi 



Bene, cì siamo; il mercato conferma, ad- Alla fin fine, le iniziative ed i prodotti 
dirittura in anticipo, ciò che da parecchio più apprezzati sono stati .quelli proposti 
tempo era stato pronosticato da chi non fin dai primi numeri dalie testate deila 
credeva, a ragione, che l'ascesa dèi mer- Systems in generale e di Commodore 
cato "indotto" de irbome computer fosse Computer Club in particolare, 
inarrestabile. La didattica e le applicazioni dèi cora- 

li costante incremento di vendite dei puter tra le pareti domestiche sono sem- 
caleolamri non è ormai più seguito da pre state apprezzate c, soprattutto, giu- 
analoga crescita delle riviste dì informa- sta mente PRETESE dai nostri lettori 
tic a del r ultima ora che, proponendo in che, modestia a parte, hanno trovato 
edicola videogiochi americani copiati nella nostra rivista la guida sicura, sem- 
inila maniera più spudorata, non hanno plice. alla portata di chiunque, anche se a 
compreso che si danno la zappa sui piedi livello elementare, 
insìstendo su un particolare prodotto E così, con la ripresa dèlie attività do- 
che, prima o poi, avrebbe stufato, po- le vacanze estive, ri a partiamo da ze- 

ba tiratura di queste cassette, inoltre, ro, supponendo che chi legge queste ri- 
grazie all'intraprendenza di club e di sin- ghe abbia appena comprato il suo sospi- 
rili possessori di home computer, si è rato Commodore oppure lo possieda da 
ridotta a quella dì un ciclostilato parroc- tempo e vuol sapere, finalmente, come è 
c h ia le di p ro v ì nda , a neh e pe r 1 a di fftai sìo- fot to 1 1 de ntro 
ne di micro-apparecchi elettronici, pub- 
blicizzati ovunque, che consentono la 


Alessandro de Sìmone 
















Le immagini di questo fascicolo 



I l computer al cinema non rispetta il 
suo ruolo. Da macchina, quasi sempre sì 
trasforma in essere umano e di questo 
mette in mostra tutti i difetti: è emotivo, 
i perse n sibi le t nervoso e possessivo se in- 
namorato, spietato e crudele quando 
odia. curioso constatare come in ogni 
caso sia difficile per gii ideatori dei film di 
più recente produzione, pensareiìl com- 
puter per quello che ò: una macchina, 

A fare eccezione è soltanto un film: 
Wargames (Giochi di guerra), che rap- 
presenta ormai un classico tra i film che si 


siano ispirati all’informatica nel soggetto 
e nelle immagini. 

La storia: un ragazzino intraprendente 
quanto esperto maneggiatore del suo 
computer entra casualmente in contatto 
con il sistema che gestisce ta difesa ato- 
mica degli Stati Uniti. Lui pero pensa di 
avere stabilito una comunicazione esclu- 
sivamente con una software house pro- 
duttrice di un nuovo videogioco. E per 
questo inizia a giocare. 

Ma ben presto (quando al telegiornale 
viene data la notizia di un inspiegabile 


movie 


stato di allarme al Pentagono) deve ren- 
dersi conto di avere a che fare non con 
laser e bombe atomiche immaginari ma 
con una realtà più spaventosa. Quella 
della bomba atomica. Riuscirà a uscire 
dai pasticci (e a salvare il mondo) grazie 
all’aiuto del progettista del sistema cen- 
trale e a una introduzione geniale: fare 
giocare la macchina contro se stessa, 

La morale ha un significato ben al di là 
della trama del film: “L'unica mossa vin- 
cente in caso di guerra atomica è non 
giocare"'. Esattamente come al tris, il 
gioco impossìbile per antonomasia. 

Wargames è una eccezione, Seppur in 
modo fantascientifico (ma chissà...), 
presenta infatti il computer in una ma- 
niera plausìbile. Come mezzo. Vero e 
proprio protagonista diventa invece la 
macchina in film come Electric Dreams o 
Generazione Proteus, 

Nel primo, il computer permette l'in- 
contro tra un ingenìere e una musicista (e 
segretamente si innamora di lei. La mac- 
china arriva addirittura a comporre la 
musica per il loro incontro, “parla”, 
esprime emozioni, piange, si ubriaca 
quando sulla tastiera cade una bottiglia 
di champagne, 

in Generazione Proteus si scopre inve- 
ce come un computer possa addirittura 
mettere al mondo un bambino. Succede 
a un sistema che si innamora di una ra- 
gazza, la chiude in casa perchè geloso, 
arriva a simulare immagini e voci per 
allontarc dal suo particolare menage gli 
incomodi. 

Per fortuna il film si conclude con un 
classico lieto fine, salvezza per qualsiasi 
sceneggiatore nei momenti di massima 
confusione. 

Dopo lo straordinario esempio di co- 
me si possa usare l informatica per fare 
film (Tron, di cui abbiamo pubblicato 
immagini e notizie sul numero scorso di 
Commodore Computer Club), il cinema 
è ancora alla ricerca di storie plausibili 
con computer nella parte del 
protagonista. 

Perora, ecco alcuni fotogrammi, spar- 
pagliati tra le pagine di questo numero, 
di Wargames, Electric Dreams a Gene- 
razione Proteus. 
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Da questa numero, dopo la 
parentesi estiva realizzata ad 
indovinello, l A. l RIGA torna 
allusati veste abituale, Macon 
una grossa novità che fura 
conienti tutti voi: nello .spirito in 
cui era iniziata fa rubrica, (fora in 
poi tutte le righe pubblicare 
verranno premiate con un libro da 
turi scelto fra quelli editi dalla 
Systems. Inforcate la penna c 
scrbeie, quindi! fi vostro sforzo 
rum rimarrà vano.. 
























Codici Schermo. Utilizzando l 'istruzione 
POKE relativa alle locazioni di schermo 
è possibile visualizzare il codice che cor- 
risponde a ciascun valore compreso tra 0 
e 255. 

Tre sono le versioni presentate dato 
che i tre computer (C-16, Vie 20 e C-64) 
hanno un differente indirizzo delle loca- 
zioni video, 

In pratica, con tali routine, è possibile 
controllare la veridicità delle tabelle pre- 
senti net manuale d'uso, venduto insie- 
me al computer, neiPappendice relativa, 
appunto, al codice di visualizzazione del- 
lo schermo. { Cesare Curatola - Torino ) 

C-iB 

l POKE 3077 r A ì A=A + 1 ; PR J 
NT w (HOME J "AsFGR H= I T 
0 350 ; NEXT* IF AC255 T 
HEN 1 

VIC-20 

1 POKE 7687 , A : POKE 3840 
7 ,0 • A=A* 1 SPRINT" [HOME 
3 "A :F0R K= 1 TO 350 s NE 
XTilF AC255 THEN 1 

C-64 

1 POKE 1 034 , A : A =A + 1 ? PR I 
NT" l HOME ] fl A ■ FOR H=1 T 
0 350 1 NEXT : IF A<255 T 
HEN 1 


n 2 

Codici CHR$, Un codice-ca radere diver- 
so viene visualizzato associando uno dei 
256 valori possibilialla variabile X pre- 
sente ne IP istruzione PRINTCHRS(X). 

Anche questa routine, unica per qual- 
siasi apparecchio Commodore, sarà pre- 
ziosa per verificare il contenuto dell’ap- 
pendice relativa al CHRS. (Cesare Cura- 
tola - Torino) 

1 PR1NTCHR$C 142 > SPRINT 
TAB ( 19 ) “ E2 UP 1 [GIALLO 
I n CHR$CA) SA=A+1 SPRINT 
SPRINT TABC80)AJF0R T 
= 1 TO 350 s NEXT* IF A<2 
56 THEN 1 


Colore e testi. La riga BASIC, valida solo 
per Vie 20 e C-64, sfrutta la proprietà di 
due locazioni di memoria: 
la prima (197) contiene, in qualsiasi 
istante, il valore codice (che non è asso- 
lutamente quello ASCII) relativo aitaste 
eventualmente premuto. Nei caso non 
sia premuto alcun tasto tale valore assu- 
me automaticamente il valore conven- 
zionale di 64. 

La seconda locazione interessata dalla 
routine (646) contiene, nei quattro bit 
più bassi (detti, in gergo, nibble), il codi- 
ce relativo al colore del cursore. 

1} risultato del RUN consiste nd far 
cambiare colore, premendo tasti diversi, 
al messaggio che viene continuamente 
visualizzato sullo schermo, (A.d.S) 

J POKE 646 ,PEEK < 197 > : PR 
I NT " PREMI UN TASTO u 
; ; FOR 1 = 1 TO 100:NEXT 
SGOTQ 1 


** 4 


Indovina ascissa e ordinata* Di questo 
micro gioco vengono fomite due versio- 
ni, per il Commodore 64 ed una per il 
C-16/ 

Dopo il RUN compare, in un punto 
casuale dello schermo, il simbolo della 
chiocciolina. E’ necessario rispondere 
con i due valori, l’uno relativo a irascissa 
e Pulirò alPordinata, ritenuti validi per la 
sua individuazione. Se le due risposte 
alle domande del computer sono errate, 
il gioco ricomincia nuovamente con 
un'altra “apparizione" casuale , altri- 
menti la comparsa di READY comuni- 
cherà al giocatore di aver indovinato cor- 
rettamenta le coordinate. (A+d.S) 

C-64 

1 X =RND < 0 > # 1 000 + 1 0£4 S PR 
INT” IOLE ARI :F0KE X r 
0: INPUT A ,B E IF I0E3+A 
+CB-1 >*40<>INT(X> THE 
N i 

C * 16 

ì X = RND <0 ) * 1800 + 3872 -PR 
I NT 1 ' I CLEAR 3 " J i POKE X, 
0: INPUT A,B: IF 307 I+A 
+ <B-1>*40OINTOO THE 
N 1 


Sommatoria e molti piscatoria* Rispon- 
dendo, dopo il RUN , con un valore inte- 
ro, come ad esempio 5, verranno fomiti 
due valori. 

Il primo rappresenta la sommatoria 
dei numeri da ì a 5 (1+2 +3 44 +5), men- 
tre il secondo ne rappresenterà la molti- 
plicatoria (1*2* 3*4 *5). 

La versione* non contenendo alcuna 
istruzione dal tipo POKE, è valida per 
qualsiasi computer, anche non Commo- 
dore. (A.D.S) 

ì Y- 1 E INPUT AS IF A THEN 
FOR 1 = 1 TO A E X=X+ 1 5 Y 
-Y# 1 s NEXTePR I NT “ SOMM- 
AR 1 MOLT = "Y* RUN 


** 6 

Su e giù. La versione unificata della sem- 
plice routine funziona non con il solito 
RUN, ma coti Pistruzione GOTOl. 
Prima di darla, però, è necessario defini- 
re la variabile X$. Esempio: 

X$— “COMMODORE COMPUTER 
CLUB ^GOTOl. (A.d.S) 

1 M=* n z FOR 1 = 1 T0 40 = A 
$=A$+ u tD0UNHUP3 M :bEX 
T! FOR 1=1 TO LEN<X$>: 
PRINTMID$<A$, I , 1>MID$ 
(X*,!,!); :NEXT 


**r 

Indovina codice video. Utilizzando la 
routine appropriata per il computer in 
vostro possesso (C-16, Vie 20, C-64), 
verrà visualizzato per un brevissimo 
istante un carattere alfabetico in alto a 
sinistra sullo schermo. Subito dopo ne 
verrà chiesto il codice video. Questo mi- 
cio gioco sarà utile per coloro che inten- 
dono esercitarsi sulle tabelle relative ai 
codici schermo. (A.d.S) 

C-16 

1 X= INTCRND <0 > *26 ) sPOKE 
3072 ,X* FOR 1=1 TO 80 
IMEXT: INPUT "[OLEARI" 

; A i IF AOX THEN 1 
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V IC-20 

1 X=INT(RND<0)*23) iPOKE 
7630, X: FOR I±1 TO 80 
! ISEXT ! I NPUT " [ CLEAR I " 
;AsIF AOX THEN 1 

C-64 

1 X= INT<RND<9) *26>SP0KE 
1824 ,X S FQR 1 = 1 TO 38 
SKEXTi INPUT “ rCLEAR I * 
;A: IF ftOX THEN 1 


*» 8 

Indovina codice ASCII, Come peri! gio- 
co precedente, questa versione unificata 
sarà apprezzata da chi intende imparare 
a memoria i codici ASCII relativi all'alfa- 
beto, Se non si indovina il codice il gioco 
riparte automaticamente. (A. d.S) 


I X^ND(0>*E6:X$-CHR 
+S5 > : PR I NT u £ CLEftR 3 " X* 
:FOR HI TO 30SNEXTH 
NPUT " CCLEfìR 3 Jl 7 IF 
A$< )X$ THEN I 


« 9 

Righe casuali. Le tre versioni pubblicate 
consentono ili riempire lo schermo del 
computer dì righe orizzontali formate 
ciascuna da caratteri casuali. (A. d.S) 

C-1S 

1 Y=RMK0>*£55!X=40*INT 
(RMX0 ) *24 ) + 1024 sFOR 
I=X TO 40+X- 1 ! POKE I, 
Y:NEXT:60T0 1 


V IC-20 

1 Y=RND (0 ) *255 : X=40* INT 
C RND < 0 ) *24 ) +3072 i FOR 
I=X TO 40+X-Ì!POK£ 1 , 
Y:NEXT:GOTQ 1 

C-64 

1 Y=RND<0) *255 ! X=£2* INT 
( RND ( 0 ) *2 1) +7680 : FOR 
I =X TO 22+X- 1 : POKE 1 , 
Y! NEXTf BOTO 1 


Cursore mobile. Rispondete con una 
stringa lunga fino a 78 caratteri (meglio 
se contenente molti spazi) quando, dopo 
il RUN, appare il punto di domanda tipi- 
co dell'istruzione INPUT. 

La stessa stringa verrà riprodotta in 
modo tale che sembrerà uscire dal curso- 
re lampeggiante. ( A.d.S ) 

1 INPUT ft*! FOR !=l TQ L 
EN<A$):PRINTMID$<A*,I 
, 1>" [RVS1 ILEFTHRVOF 
FI "J :FOR J = 1 TO 50iNE 
XTJ, I; FRI NT" " 


dotto fedelmente nelle prime cinque n- 
ghe in alto. 

Chi possiede il Vie 20 troverà proba- 
bilmente difficoltà, dato che è necessario 
colorare le celle video prima di deposi- 
tarvi un valore e renderne visibile il ca- 
rattere rappresentato. (A.d.S) 

C-16 

1 IhFUT A ! IF A <26 THEN 
FOR 1=1 TO A*40 : POKE 
307 1 + I ,PEEK (407 1 -A*40 
♦I) 1NEXT 

V IC-20 

1 INPUT A: IF A<£6 THEN 
FOR 1=1 TO A *22 s POKE 
7S79+I ,PEEK <8 185-A*22 
+1 ) tNEXT 

C-64 

1 INPUT A* IF A <26 THEN 
FOR I=J TO A*40 :P0KE 
1 023 + 1 , PEEK < 2023-A *40 

+ n !Next 


«li 
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Riproduce linee. Per utilizzare corretta- 
mente una delle tre versioni presentate, 
riempite casualmente di caratteri Io 
schermo del vìdeo c, in seguito, date il 
RUN, Il numero che digiterete alla ri- 
chiesta tipica dellTNPUT, sarà interpre- 
tato dal computer come ii numero di li- 
nee poste in basso da riprodurre fedel- 
mente nella parte alta del video. 

Se, ad esempio, rispondete con 5 al 
punto dì domanda, il contenuto delle ul- 
time cinque righe di scherno verrà ripro- 


Di agonale video. Questa versione unifi- 
cata riproduce in diagonale, un carattere 
alta volta, la stringa digitata in risposta 
alPJ NPUT, (Cesare Curatola - Torino) 


1 POKE 5338 1 r 0 : FR INT * EG 

1 ALLO 3 £ CLEAR 3 11 s INPUT 
A$JFOR C = 1 TO L 

2 PR INT TfiB<C>MIDS<A$, 
Cri?! FOR T=0 TO £00 : N 
EXTT,C 


«io 


Nota bene 

Alcune righe tra quelle pubblicate sembrano possedere più dì 80 caratteri e, come tali , inaccettabili dal computer. 
Nei casi in cui ci si accorge che la riga è troppo lunga f è necessario ricorrere alle abbreviazioni dei comandi così 
come indicato neW appendice specifica riportata nel manuale del computer in vostro possesso. 

Ad esempio invece di scrivere PRINT, è possibile abbreviare col punto interrogativo (?). Invece di POKE 
potete scrivere il carattere “P” seguito dal carattere che viene visualizzato premendo contemporaneamente il tasto 
shift insieme con "O m . Tutte le abbreviazioni possibili, lo ripetiamo, sono riportate in una delle appendici di qualsiasi 
manuale Commodore. 

Nel caso sbagliate a digitare ì microlistati che superano , in lunghezza, gli ottanta caratteri (SYNTÀX ERROR), è 
necessario r per sicurezza, ribatterli per intero e non apportare modifiche alla riga visualizzata con V istruzione LIST. 


14 - Commodore Computer Club 


1 



Le stampanti MT/85, a 80 colonne, e MT/86, a 136 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo. 

Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti. 

Velocità a ^80 cps. bidirezionale ottimizzata, NLG 
a 45 cps . grafiche, possibilità d 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilita con il PC IBM. 

Il prezzo: il più competitivo del 
mercato in questa fascia di 
prestazioni, 

Naturalmente anche Je MT/85/86 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo, 
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con MICROLEX CREI 


LA TUA PUBBLICITÀ 


COEr LE TUE MANI (ed il tuo ingegno) 


Con MICROLEX puoi finalmente realizzare messaggi pubblicitari su misura per la 
tua attività senza saper programmare e visualizzarli su monìtors professionali o 
su qualsiasi tipo di televisore. 


MICROLEX ti offre la possibilità di creare facilmente immagini promozionali e di 
unirle in sequenza nell’ordine e per la durata che preferisci. 

Grazie alla brillantezza dei colori, all’animazione che cattura lo sguardo, ai carat- 
teri chiari e perfettamente leggibili, i messaggi creati con MICROLEX attirano 
sempre l'attenzione! 


Caratteristiche di MICROLEX: 


* SCELTA DI COLORI 

Puoi scegliere tra sedici colori per lo sfondo e sedici 
colori per le scritte centinaia di vivacissime combi- 
nazioni a tua disposizione! 

* CARATTERI SPECIALI 

Il disegno del carattere (City Medium) è molto chiA 
ro e di facile lettura anche da lontano. Sono già pre- 
disposte tutte le lettere dell'alf abete, maiuscole e 
minuscole, più un gruppo di simboli, in nove dimen- 
sioni e forme differenti. Vi è anche una funzione 
che pone automaticamente il testo al centro dello 
schermo. 

Sono comunque disponibili i caratteri del Commodo- 
re 64. sia nelle dimensioni standard, che in doppia 
altera, e possono anche lampeggiare. 

* ANIMAZIONE 

Sia le parole intere che le singole lettere possono 
"svolazzare” verso la posizione prestabilita da un 
qualsiasi punto dello schermo. Possono anche rive- 
larsi lentamente o lampeggiare. L’animazione dà 
più forza al messaggio, e ne enfatizza i punti prin- 
cipali. 


* FLESSIBILITÀ 

Uno dei fattori più interessanti di MICROLEX e la 
immediatezza con cui si possono cambiare* corre g^ 
gore e completare le sequenze di messaggi. Ciò risul- 
ta essere di grande praticità per aggiornare i prezzi, 
inserire nuove lìnee di prodotti, comunicare le ulti- 
me notizie, variare orari, tabelle e schede. Grazie 
all'elasticità del programma, qualsiasi modifica po 
tra essere inserita, quasi immediatamente senza co- 
noscere alcun linguaggio di programmazione. 

* GESTIONE MULTI- VIDEO 

Con un solo sistema MICROLEX è anche possibile 
gestire più televisori contemporaneamente - utilis- 
simo in fiore, mostre, ampi punti di vendita, alber- 
ghi eoe. 

* „.IN PIÙ, MICROLEX 
È ECONOMICO! 

MICROLEX non solo ha tutti i vantaggi del messaggi 
promozionali creati per soddisfare l'esigenza speci- 
fica, ma è molto più flessibile ed economico. 11 siste- 
ma richiede un Commodore 64. con registratore. 


Con l’aiuto di MICROLEX VENDI i tuoi prodotti, PROMUOVI la tua attività, INFOR- 
MI il pubblico, PUBBLICIZZI le novità e MIGLIORI la tua immagine. In più, MICRO- 
LEX soddisfa perfettamente le esigenze di titolazione dei videoamatori! 

MICROLEX, su cassetta, viene fornito con manuale illustrato di facile comprensio- 
ne IN ITALIANO nel quale trovi anche consigli utili per ottenere risultati di 
qualità professionale. 



MICROLEX è prodótto da Talent Computer System. 
Tradotto e importato <n esclusiva da: 

LAGO sne, via Rovereto 13, 301 37 Milano 
tei- (03) 3650900 



BUONO D r ORDIRE da inviare a: LAGO sne c/o SYSTEMS EDITORIALE srl, v.le Famagosta 75, 3Q14E Milano 

Vogliate inviarmi in contrassegno n. MICROLEX a Lire 55.000 cad (IVA coni presa) più LLro 5.000 per spese di spedizione 

- via ■ n Cap, città 


nominativo 


SPECIALE GRAFICA 



Q u e stontiroero di Cotmnbd^«CofflptlW^lub\ 
è parzialmente (fedivate alla grallM^i preseMiqmo 
dapprima alcune paginèccmdelle splendide immagìftf 
"ottenute da grossi computer, ma anchectek 
delibasi disegni fattibili confl'v^stro C64; x - 
e poi numerosbsijrttcoli che, in un modòesQ eli’ altro, 

sono connessT'' , »U^arg omento “grafica’donjl ’ 
computer”: come sfruttar^i^caratteri semigraficTper 
disegnare semplici cartina geografiche, 
come*tarfare if punto di vista nei disegni geometrici, 
cJfthememorizzare disegni in alta 
risoluzione in pochi byte, 

• come sfruttare al massimo 

lo schermo graficoafeM({£20, 
come realizzare dei semplici istogrammi e, 
per finire, una divertente 
applicazione con 
""'■Canimazione di cinque 

sprite. 
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Per realizzare un disegno è necessa- 
rio (almeno con fattuale tecnolo- 
gia !) avere un’idea e poi “tradurla” \ 
graficamente. 

Chi non conosce le regole della 
prospettiva nè quelle delle ombre in- 
contra, però, vere e proprie 
barriere. 

Quante volte, anche voi vi siete 
cimentati a tracciare scarabocchi che 
sarebbero diventati opere d’arte se 
le sfumature fossero state più accu- 
rate o se i punti di fuga non avessero* 
incontrato ostacoli? 

Affidare al calcolatore la ricerca 
della tonalità cromatica più adegua- 
ta, 1 Individuazione dei punti nasco- 
sti che non devono esser tracciati, 
fé fletto che deriva dalTosservare lo 
stesso oggetto da diversi punti o con 
diverse illuminazioni è certamente 
un'opera immane che grossi mini 
computer risolvono brillantemente, 
almeno a giudicare dalle immagini 
pubblicate su queste pagine. 


La parola alle immagini. Vi mostriamo in queste 
pagine alcuni splendidi disegni ottenuti con dei 
computer. E, per non lasciarvi fa bocca troppo 
amara tre semplici routines grafiche per il 

vostro C64. 


m 







Alcuni terminali grafici computeriz- 
zati traggono spesso in inganno l’os- 
servatore, che ritiene di trovarsi di 
fronte ad una riproduzione fotogra- 


fica o, nei casi più elaborati, a veri e 
propri cortometraggi. Si pensi che 
con alcuni computer (e relativi pro- 
grammi) è possibile osservare il mo- 
vimento delle onde di un mare tem- 
pestoso. E il naufragar m'è dolce in 
questo mare,.. 


Dal disegno tecnico ed arido di un 
circuito integrato alle infinite varia- 
zioni cromatiche di una sfera illumi- 
nata, la computerizzazione grafica 
delle immagini trova la sua migliore 
realizzazione soprattutto con l cine- 
scopi ad altissima definizione dal co- 
sto. è intuitivo, poco abbordabile.., 

A. d$. 
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... E col tuo Commodore 64? 

I disegni pubblicati in questa pagina forse non sono al livello di quelli 

visti prima, ma sono pur degni di “rispetto”!! 


1 REM ****4************** 
a REM * GEOMETRICO - 64 * 

3 REM 4*444444*4*****4*44 

1 00 PQKE53880 ,0 : *CLEAR : «-6RAF0 , 5 : «-COLOR 1 

110 N=1?:L= 100 

180 FORJ=0TON-1 

130 FOR I -0TOJ- 1 

140 Xl=L*C0S(2/N*J*it> 

150 Y 1 =L*S IN<£/N*J*tf ) 

160 XSsL4C0S<E/N*I*^> 

170 YS =L*S IN<3/M* I *4 ) 

180 «-DRAUJXi ,YJ ,0,X8,Y2,0 
130 NEXTI sNEXTJ 
800 STOP 




1 REM 4**4444**4444444 
£ REM * SPIRALI - 64 * 

3 REM ***444****4*444* 

600 POKE53880 , 0 : +-CLEAR : «-GRAFO , 7 s «-COLOR 1 
610 FOR I=~ 180TO 1B0STEPS . 5 
680 II = U/180)4tf 

630 X 1 =CDS ( I 1/3)4 1005 Y1 =S INC 1142)* 100 
640 X8-CDSU 1*8)4 100 SY2=SIN< I 1/8 >*100 
650 «-DRAWXJ ,Y1 ,0,X2,Y8,0 
660 NEXT 
870 STOP 


1 REM ***44444*****4**444 
8 REM * FARFALLA 8 - 64 * 

3 REM 44*444****44***4444 
800 POKE53880 ,0 s «-CLEAR S «-GRAF0 ,7 : «-COLOR 1 
310 FOR I 180TO180STEP8 • 5 
330 ì I=< 1/186)** 

330 X=I :Y=SJN< I I+F)*100 
840 H)RAW0,0,0,X,Y,,0iNEXT 
850 C=C + 1 : IFC = ITHENF-if sGGTOS 10 
860 FOR i =0TO 1 4STEP2 
870 «-CIRCLE0 ,0,0,1 ,70!NEXT 
880 HDRAW-30,90,0,0,70,0 
830 «-DRAU130 ,30 ,0,0,70,0 
300 STOP 



Per ottenere queste videat© sul C64 p pri- 
ma di digitare le brevissime routines qui 
pubblicate, caricare e far girare le Routi- 
nes Grafiche di Danilo Toma (Commo- 
dore Computer Club rt 14). 


s 

Provate anche a cambiare qualche 
"'argomento” delle istruzioni e osserva- 
te che cosa sella fuori, I disegni più beili 
ed i loro listati, (purché altrettanto bre- 
vi!}, verranno pubbìicah (coi vostro no- 


me) Sulle pagine di Commodore Com- 
puter Club. 

A disegno ultimato, per ritornare nel 
''modo normale” occorre premere 
RUM/STOP+RESTORE, 










Grafica 

in bassa risoluzione 


Come realizzare 
semplici disegni con i 
caratteri semi-grafici, 
ricorrendo ad un 
insolito sistema di 
programmazione , 


I r ;t curili ieri stic^ peculiare dei primi computer 
C. om inodore era costimi In dalla presenza di 
alcuni tasti dalle capacità sem ieratiche che, 
nei vecchi PI T, aggirava T'ostacolo della ca- 
renza dell alla risoluzione grafica. 

Le prime riviste americane specializzate (ci 
rii e riamo ài la fine degli unni 70) proposero 
una serie di semplici listali che consentissero 
di sfruttare i n idi igeine mente la riproduzione 
di tali cara ire ri eliche. 

Nonostante, la possibilità, con i più recenti 
prodotti di casa Commodore, di utilizzare il 
video ioì alla risoluzione renda, di tatto, obso- 
leto il ricorso ai caratteri sembratici, ripropo- 
niamo, specie per la gioia dei principianti, la 
tecnica, ripresa da più autori fino agli inizi 
d etili mini Nj, di suditi videro lo schermo eei 
4tm parli. 


Lo scopo di questo articolo e dei listati 
pubblicati è quello di sviluppare un parti- 
colare metodo per creare disegni col 
computer, facendo liso solamente di al- 
cuni dei caratteri grafici disponibili sulla 
tastiera. 

I programmi proposti girano sul C64, 
PLUS 4 e 06. Per il VLC 20 non esiste 
alcuna limitazione di principio* ma biso- 
gna te ite re conto delle ridotte dimensioni 
dello schermo, per cui l’articolo è rivolto 
anche ai VlOemisti, seppure i listati, 
per come sono pubblicati* siano destinati 
ai fratelli maggiori della famiglia 
Commodore. 

C hi non volesse approfondire Tarsio- 
mento può saltare a piè pari tutta la 
*'chiaecherafa" sul programma e tuffarsi 
direttamente sui listati proposti sempli- 
cemente come curiosità: il primo pro- 
gramma. ad esempio, disegna l'immagi- 
ne stilizzata del TI rafia. Se la cosa vi" è 
piaciuta potete proseguirà copiando gli 
altri program mini, mantenendo inaltera- 
te le righe da 101 1 a 310 del listato 1 e 
sostituendo solo le lince DATA 
successive. 

Se poi avete la curiosità di capire come 
funzionano queste strane righe, tanto 
meglio: continuate la lettura e buon 
lavoro! 
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figura t 

■ Codificazione dei 

caratteri grafia nelle linee 


DATA, Ad ogni teatro corrisponde il simbolo mp- 
presentato in figura. 

Tutti noi conosciamo ì caratteri grafici 
disponibili sul nostro personal e proba- 
bilmente una delle prime cose che abbia- 
mo provato è stata proprio quella di sma- 
nettare sulla tastiera per scarabocchiare 
q ualcosa sul video. 

Le possibilità sono abbastanza ampie e 
con un po' di fantasia, e soprattutto di 
pazienza, si possono ottenere buoni ri- 
sultati anche se, bisogna ammetterlo, 
non siamo certo all’altezza dei disegni 
fatti usando falla risoluzione 2Hi-Res). 

I possessori del C64 certo conosceran- 
no le difficoltà insite nell'uso del’HbRes, 
I nfatti, a differenza del C16 e del PLUS 4 
che già dispongono di comodi comandi 
BASIC per la grafica (quali DRAW, 
PLOT, CIRCLE eccetera), il 64 è nato 
con un BASIC più povero rispetto agli 
ultimi prodotti Commodore. Perciò, se 
non si dispone di opportune utility, ci si 
deve rassegnare a far uso di i un umera vo- 
li PEEK e POKE che, a dir la verità, 
risultano difficili da digerire. Senza par- 
lare della esasperante lentezza con cui ìì 
BASIC gestisce la pagina grafica: chi si 
fosse azzardato a provarlo di prima per- 
sona se ne sarà certo reso conto. 

Fortuna che sono arrivate a salvarci le 
routine grafiche di Danilo Toma e a to- 
gliere dalla circolaziona quelle noiose 
PEEK e POKE. Le attese di parecchi 
minuti solo per vedere comparire sul vi- 
deo figure dalle dimensioni di un tappo 
di bottiglia sono un lontano ricordo (per 


le due o ire persone che ancora non co- 
noscono le routbes grafiche, ricordo che 
sono state pubblicate sul n. 14 di 
C-C.C). 

Ma non siamo qui per parlare di alta 
risoluzione. Come già anticipato, l'argo- 
mento che tratteremo riguarda i cosid- 
detti caratteri semi-grafici: sono quelli 


Figura 2 ■ Carlina del Nord America. Sovrapporre a questa un foglio trasparente quadrettato ed arare per in 
costruzione del disegno i caraneri dello figura 1, In figuro 3 è mostrato U risultata finale. 


stampigliati nella parte inferiore dei tasti 
e si ottengono con la pressione contem- 
poranea dei medesimi e dei tasti 
(SH1FT) oppure (COMMODORE) 

A noi serve solo un gruppo di questi. 
Se «avete il computer a portata di dita 
seguite le istruzioni che sto per darvi: 
tenendo premuto il tasto (COMM) (in 
basso a sinistra) battete in modo diretto: 
!, D, F, K, C, V, Premete ora (CTRL) 
assieme al (9); abbiamo così attivato il 
modo RE VERSE. Ripetere le stesse 
operazioni di prima. 

Se ci siamo capiti bene dovreste aver 
ottunuto una serie di 14 simboli; a questi 
ne vanno aggiunti altri due: lo spazio 
(anche se non si vede esiste!) e il suo 
re versato”. 

Possiamo ottenere il medesimo risul- 
tato con poche righe di programma: digi- 
tate (dal listato 1) le sole righe Ufi- 120- 
130- 140- 150- 300- 310- ed aggiungete la 
seguente; 


160 FOR G-0 TG 15TRINT 
A$(G):NEXT 

A meno cha queste cose siano per voi 
già scontate, vi consiglio di copiare que- 
sta routine e di provarla subito. Un’altra 
cosa: mantenete i numeri di linea cosi 
come sono, perchè queste righe serviran- 
no anche inseguito. 

Avete capito come funziona questo 
programmino? 

La matrice A$() sene a memorizzare i 
6 caratteri (linea 110), 

in 120 si leggono gli 8 codici ASCII dai 
DATA (300-310): 

130 AS{K)~CHRS(A) 
sono i privi 8 caratteri 
140 A$2K+8)=CHR$(18) 
+A$(K)+CHR$(Ì4ó) 
gli stessi in reverse. 
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A = CHR$(32) 

B — CHR$(172) 

C = CHRS(187) 

D = CHR$(190) 

E — CHR$(188) 

F=CHR$(161) 

G = CHR$(162) 

H = CHR${191) 

I = RVSON + CHR$( 32) +RVS OFF 
I = RVS ON +CHR$(I72) + RVS OFF 
K = RVS ON + CHR$(187) + 

RVS OFF 

L = RVS ON + CHR$(190) + 

RVS OFF 

M = RVS ON + CHRS(18R) + 

RVS OFF 

N = RVS ON + CHR$(161) 4- 
RVS OFF 

O = RVS ON 4 CHRS(162) 4 
RVS OFF 

P = RVS ON 4CHRS(191) +. 

RVS OFF 

Avrete notato, guardando la figura 4 
(che rappresenta la figura 3 " codifica- 
ta "), che alcuni simboli si ripetono fre- 
quentemente: gli spazi vuoti o quelli pie- 
ni sono quelli più soggeti a ripetizioni. 
Per rendere più comoda la scrittura po- 
tremmo studiare un accorgimento in mo- 
do che se noi scrìviamo: 

500 DATA 5 A OR 

il programma stampi automaticamente 
15 spazi, senza obbligarci a scrivere: 

500 DATAAAAAÀAAAAAAABB 


Qualche precisazione sui caratteri 
“speciali”: 

CHRS( 1S) = REVERSE ON 
CHRS( 146) = REVERSE OFF 
CHRS( 32) = SPAZIO 
CHR5(I72) = [COMMI +D 
CHRS(187) = [COMM) 4 F 
CHRS(IOT) = fCOMM] 4 V 
CHR$(188) = [COMM] 4 C 
CHR$(16I) c* [COMM] + K 
CHR$(162) - [COMM] +1 
CHR$(191) = [COMM] 4 B 

I] sistema adottata sembrerà un po' 
macchinoso, ma ricordatevi che lo scopo 
che ci prefiggiamo va al di là del semplice 
effetto appena ottenuto: l'uso del vetto- 
re AS(), che può sembrare superfluo, ha 
invece una sua precisa ragione di 
esistere. 

Se così non fosse, avremmo potuto ot- 
tenere lo stesso risultato battendo sem- 
plicemente in modo diretto i tasti indica- 
ti, E J una prassi che però ritengo poco 
elegante; coloro che avessero provato a 
copiare righe contenenti parecchi simbo- 
li grafici, si sarà accorto che questi, messi 
uno di seguilo aH’altro, assumono t'a- 
spetto di un'iscrizione ittita e necessitano 
di una sfibrabte opera di “decifrazione”. 
Quindi, quando è possibile, è sempre 
meglio ricorrere all'istruzione CHR$(): 
il programma risulterà un po + più lungo, 
ma in compenso molto più comprensì- 
bile. 

La cosa sembra complicata ed in effetti 
un po' lo è. Ma niente paura, facciamo 
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un passo per volta cd aggiungiamo al 
programmino visto prima le righe 170- 
180- 190- 200- 220- 280- 290 e cancellan- 
do la riga 160. 

Commentiamole: 

170 Legge una linea DATA (ancora non 
ci sono ma.„ una cosa per volta) 

180 II carattere Z sta ad indicare che la 
lettura è finita: se A$=“Z” il disegno è 
completo, 

190 Azzera il contatore. E 7 usato per pre- 
levare un carattere per volta dà A$, 

200 Quando supera il numero di caratteri 
di ÀS passa alla riga succesiva. 

220 Determina quale dei 16 simboli deve 
essere stampato: MIDS(A$,Q,1) prele- 
va un carattere; ASC(.) trova il valore 
ASCII e sottrae 65 per ottenere un nu- 
mero da Oa 15. 

280 Scrive sul video (con il carattere di 
punto e virgola, mi raccomando!) e ritor- 
na a prendere un altro carattere, 

290 Va a capo riga e toma a leggere il 
prossimo DATA. 

Le lettere nei DATA corrisponoom? 
rispettivamentaa: 

4000 caratteri sul video 

Con ì 16 simboli a disposizione (figura 
1} possiamo suddividere, virtualmente, 
un carattere di 8*8 potei in 4 quadratini 
da 4*4 pixel ciascuno (16 sono tutte le 
possibili combinazioni di vuoti e pieni). 

In questo modo lo schermo può essere 
suddiviso. in 80*5.0 caratteri 2 “punti" da 
4*4 pixel). Anche se siamo lontani dai 
320*200 detl'Hi-Resè ugualmente possi- 
bile creare dettagliate figure ottenendo 
spesso risultati sorprendenti. 

Come esempio pratico descriverò il 
procedimento seguito per disegnare la 
carta dal Nord America (ma vale anche 
per gli alto listati). 

Innanzitutto (figura 2) mi sono procu- 
rato una carta geografica e dei fogli da 
disegno trasparenti (meglio se già 
quadrettati). 

Sovrapponendo un foglio sulla cartina 
ho seguito con la matita il contorno, te- 
nendo presente che l'unità di misura nel 
nostro caso t un quarto di quadrato. 

Fatto questo, che è il lavoro più com- 
plicato, non resta che codificala il dise- 
gno in linee BASIC (figura 3). 

Si potrebbero scrivere tanti comandi 
PR INT, ma come ho detto in precedenza 
non è il sistema più funzionala, Un’altra 
soluzione è di assegnare ad ognuno dei 
16 caratteri una lettera del l'alfabeto, co- 
dificarla in istruzioni DATA e poi far 
leggere e visualizzare con un particolare 
programma, che pian piano andremo a 
costruire. 
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L’avete ancora sotto mano il program- 
ma di prima? Aggiungete le linee 210- 
230- 240- 250- 260- 270 
Commento; 

210 Ricava il numero di ripetizioni (NU) 
230 Se è uguale a 0 il carattere non va 
ripetuto. . 

240 Incrementa il contatore. 

250 Determina il carattere da stampare. 
260-270 Esegue il ciclo di ripetizione. 

Potrebbe già andar bene così* ma noi 
siamo incontentabili e facciamo ancora 
un piccolo ritocco aggiungendo la riga 
100. 

In questo modo è possibile posiziona- 
re il disegno a partire da una colonna 
qualsiasi dello schermo, badando natu- 
ralmente a non superare complessiva- 
mente il valore di 40. 

Ora il programma “disegnatore” è 
completato, nojp resta che aggiungere le 
linee DATA che avrete ricavato in 
precedenza. 

Nei listati è proposto i! programma 
completo per disegnare Tltalia; per far 
girare anche gli altri, di cui sono dati solo 
i DATA, dovete tenere invariata la parte 
composta dal programma vero e proprio 
e sostituire solo le righe numerate da 500 
in poi. 


Flavio Moli nari Figura 4 - Risultato dèlia codifica ottenute t confrontando U disegno di figura 3 con i carni ter t grafici. Le tenere 

(segue a pagina 72} , ottenute andranno trascritte nette linee DA TA . 
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COMMODORE 64 


Punto di Vista 


di Danilo I onia 


er realizzate le routine grafiche li 
(CCC n. 14) decisi di porre il punto dì 
vista ai centro dello schermo: in questo 
modo le immagini tridimensionali sareb- 
bero risultate più “naturali" atl T osserva- 
torc che avesse in mente, come parago 
ne, le fotografie, Ma i pittori, che sono 
indubbiamente superiori sotto molti 
“punti dì vista" alle macchine fotografi- 
che, sanno anche realizzare quadri in cui 
il punto dì vista non si trova necessaria- 
mente al centro della tela. 

Vediamo cosa significa spostare il pun- 
to di vista. Immaginate di essere davanti 
ad una finestra e di osservare un oggetto 
posto al di là di questa Poniamo che sia 
esattamente di fronte a voi ed immobile. 

-P^ rovate ora a spostarvi lateralmente 
continuando a fissare Foggetto. Vi ac- 
corgerete di due fatti. 

1/ La porzione della figura a voi visibile 
cambia: se prima vedevate solo la parte 
frontale, a mano a mano che vi spostate, 
riuscite a vedere parti laterali, prima 
invisibili, 

2 / L'oggetto sembra spostarsi nella vo- 
stra stessa direzione se mantenete come 
“cornice 1 ' di riferimento la finestra. 

La traslazione apparente è tanto mag- 
giore quanto piu Foggetto è lontano dalla 
finestra, e se vi spostate troppo esce ad- 
dirittura dal campo visibile. Lo stesso 


Come creare nuove 
prospettive 
alternando la 
posizione del punto 
di vista delle ormai 
famose routines 
grafiche di Danilo 
Toma. 



vale per traslazioni verticali del nostro 
occhio. 

Con il computer possiamo ottenere gli 
stessi risultati. Nel nostro caso lo scher- 
mo del monitor sostituisce la finestra e il 
punto di vista delle routine rappresenta il 
nostro occhio. Come esempio potete os- 
servare le figure A e B (ottenute diretta- 
ifienfe dallo schermo con la routine di 
Bafd cópy pubblicata sul n, 18). La cro- 
cetta serve solo per individuare la posi- 
zione del punto di vista dal quale viene 
osservato il cubo. 

Chiarisco subito che la distanza dallo 
schermo del punto di vista, cioè la sua 
coordinata Z, è fissa mentre dò che pos- 
siamo modificare sono la X e la Y. 

Per traslare il punto lungo Fasse delle 
ordinate, cioè verticalmente, basta 
eseguire : 

POKE 5015I,A 

dove A può assumere valori da Da 255. Il 
valore "normale” delle routine è tOQ. 
Assegnando valore 0 ad A, il punto dì 
vista si troverà nella posizione più bassa 
possibile dello schermo. Aumentando il 
valore avremo una corrispondente eleva- 
zione del punto di vista che, per valori 
superiori a 199, uscirà dallo schermo visi- 
bile (vedi disegno 1), 

Ciò, badate bene, non significa affatto 
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che non vedrete più nulla ma semplice- 
mente che vedrete ancora più dall'alto. 

L'operazione per traslare il punto 
d'osservazione lungo l asse delle ascisse 
(orizzontalmente) è analoga; 

POKE 50147, A 

Anche qui A può assumere valori tra 0 
e 255. Il valore “normale' 1 delle routine è 
160. 

Come avrete intuito ciò comporta che 
il nostro punto di vista non potrà essere 
spostato fino al limite destro dello scher- 
mo visibile (vedi disegno 1), Altra limita- 
zione è data dal fatto che “pokando” il 
valore zero nella locazione 50147 si entra 
in un caso speciale. Con tale valore infat- 
ti l’ascissa del nostro punto d’osservazio- 
ne assume automaticamente il valore 
dell’ordinata. Ad esempio: se nella loca- 
zione 50151 abbiamo messo il valore 80 c 
nella locazione 50147 il valore 0, le coor- 
dinate del nostro punto di vista saranno 
(80,00). 


ino si ha un'Identica traslazione del pri- 
mo. Ad esempio se nelle locazioni 50151 
mettete il valore zero, non avrete solo il 
punto di vista che si sposta nel ringoio in 
basso a sinistra dello schermo ma anche 
l'origine degli assi. Così il punto di coor- 
dinate (0,0), che ^normalmente” si trova 
al centro dello schermo, si sposta nel ci- 


tato angolo. Per una più chiara compren- 
sione osservate i disegni 2 e 3. Questo 
movimento simultaneo però impedisce il 
cambiamento dell'angolo di osservazio- 
ne degli oggetti disegnati. 

Infatti quando, per avere una diversa 
visuale delle figure, spostiamo il punto di 
vista, queste sì spostano solidalmente ad 





Area di spostamento do ! P.V. s doirortglno 


POKE 5015* 




esso poiché la loro posizione nello spazio 
(o meglio nello schermo) prende come 
punto di riferimento l’origine degli assi 
che, come già detto, corrisponde sullo 
schermo alla posizione del punto di vista, 

p 

M, er capirci meglio fate conto di trovar- 
vi di fronte ad uno specchio: per quanto 
vi spostiate lateralmente la vostra imma- 
gine vi seguirà solidalmente e non riusci- 
rete a vedervi di profilo. Il rimedio per 
mantenere fissi gli oggetti rispetto allo 
schermo, c quindi visibili sotto diverse 
angolazioni, è semplice. 


L’unico caso in cui potremo avere tale 
punto con ascissa A si avrà quando anche 
l'ordinata sarà 0: punto (0,0). 

Origine degli assi 

Per motivi di semplificazione nel pro- 
getto delle routine, il punto di origine 
degli assi viene automaticamente posto, 
sullo schermo, in corrispondenza del 
punto di vista. 

Ciò significa che spostando quest'ulti- 



I 




PEEK (50Ì47)M> 
PEEK (50151)— 0 
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Basta correggete i valori delle coordi- 
nate X e Y nel modo indicato: 

1 1 

X=X+OX-PF.EK(50147) 

Y = Y +OY-PEEK(50151) 


ome potete vedere (linea 230) DX e 
DY vengono sommati alle coordinate di 
uno solo (quello che appare più vicino, in 
basso a sinistra) dei vertici del cubo poi- 
ché tutti gli altri sono automaticamente 
calcolati in funzione del primo, 

Le dimensioni del cubo sono date dal- 
la variabile L=lato (linea 140). Per evi- 
denziare il punto di vista vengono trac- 


ciate due lìnee perpendicolari tra loro 
(lince 260 e 270) che si incrociano in cor- 
rispondenza del Dirigine. Come potete 
osservare in questo caso non vengono 
aggiunte le rettifiche DX e DY perchè a 
noi interessa ora seguire gli spostamenti 
del punto di vista. Due esempi di ciò che 
apparirà sullo schermo li avete già visti 
nelle figure A e B. 


OX e QY possono assumere valori tra 
0 e 255 ed indicano ìa posizione fissa 
dello schermo che vogliamo sia presa co- 
me punto di riferimento, cioè come origi- 
ne, dalle coordinate. 

Ad esempio, assegnando rispettiva- 
mente 160 e 100 a OX c OY fisseremo 
l’origine degli assi al centro dello scher- 
mo, indipendentemente dalla posizione 
del punto di vista. 

Naturalmente le espressioni OX- 
PEEK{50147) e OY-PEEK^OISI), che 
non cambiano di valore finché non muta 
il contenuto delle locazioni "peefcate”, 
potete assegnarle a due variabili per evi- 
tare di ripeterle ad ogni istruzione grafi- 
ca, Ad esempio: 



Fig. A 


DX=OX-PEEK(5(»147) 

D Y =OY-PEEK (50151) 
DRAW X1+DX.Y1+DY.Z1. 
X2+DX.Y2+DY.Z2 


Demo 

Per aiutarvi a comprendere meglio 
quanto esposto vi propongo un semplice 
demo. Caricatelo e date il RUN {ovvia- 
mente dovrete avere prima caricato le 
routine grafiche II), Tramite i tasti del 
cursore potrete scegliere il punto da cui 
osservate un cubo che rimane fìsso nello 
spazio, anche se a voi sembrerà spostarsi 
in una certa misura (rileggetevi Farticolo 
dove spiego resero pio della finestra). 

Una piccola croce indivìdua il punto di 
vista. Se eleverete di molto il punto d’os- 
servazione la croce sparirà, cioè uscirà 
dallo schermo. 
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100 REM ************************* 
*.**.*. *.* * 

105 REM *** ESEMPIO DI SPQSTAF*EN 
TO *** 

110 REM *** DEL PUNTO DI VISTA DE 
LLE *** 

115 REM *** ROUT INES GRAFICHE I 

I *** 

120 REM *** (C.C.C. N, 14) 

*** 

125 REM ***********DANILO*#TOMA** 
130 : 

140 H = 105 1 K = 1 43 5 L = 1 30 ! +-QRAF0 , I ! +-CO 
L OR 1 s POKE 53280,6 
150 vCLEAR 
160 : 

170 REM *** ABILITAZIONE NUOVO PU 
WTO DI VISTA *** 

180 POKE 50147 ,K : POKE 50151, H 
1S0 : 

200 REM *** RETTIFICA DELLE COORD 
INATE PER MANTEKERE *** 

210 REM *** L'ORIGINE DEGLI ASSI 
AL CENTRO DELLO SCHERMO *** 

£20 DX = 160 -PEEK <50 147 > ì DY= 100 -PEEK 
<50151 ) 

230 X=DX+55 J Y=DY- 1 00 : Z = 100 s REM * 
# COORD, DI UN VERTICE DEL CUB 
0 ** 

£40 i 


250 REM *** EVIDENZIA IL PUNTO D 
I VISTA *** 

2S0 «-DRAW-10, 0,0, 18,0,0 
270 «-DRAW0 ,-10,0,0, 10,0 
230 : 

230 REM *** DISEGNA IL CUBO ** 

* 

380 FOR 1=0 TO 1 

310 HJRAUX ,Y+I*L,2,X+L,Y+I*L,Z 

320 *-DRAW*,*,Z +L,*,*,Z+L 

330 «-DRAWX+L,*,Z 

340 +-ORAWX ,*,2 ,X 

350 NEXT 

3G0 FOR 1=0 TO 1 

370 *BJRAUK,Y,Z + I*L,X,Y+L,Z + I*L 

380 *dRAUX+L,$,sE,X+L,*,* 

330 NEXT 
400 : 

410 REM *** SCELTA DEL NUOVO PUN 
TO DI VISTA *** 

420 GET A$iIF A^"" THEN 420 
430 IF A*=CHR*<145) ANO H<235 THEN 
H=H+2 1 

440 IF A$=CHR$<17> AND H>£0 THEN H 
=H-2 1 

450 IF A*=CHR*<29) AND K<£35 THEN 
K=K+2 1 

460 IF A$=CBR$(157) AID K>£0 THEN 
K=K-2 1 

470 GOTO 150 
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LESE STmureta Stampanti Epson importate in Italia dalla Segi 

una grande casa produttrice di tecnologia in- 
for malica, la giapponese Epson. Era gli appa- 
recchi in distribuzione, notevoli due stampan- 
ti, entrambe inierfacciabili Commodore tra- 
mite opportuna interfaccia, oppure, senza in- 
terfaccia, perCM, con Software basic4,0con 
il comando ENABLE, 

11 modello LX-SU è una stampante ad aghi 
dotala di oltre SO codici di controllo software 
e può lavorare in modo autonomo, lasciando 
libero il computer. Dispone di un set di ^6 
caratteri standard ASCII con discendenti ed è 
in grado di stampare 100 caratteri al secondo 
in entrambe le direzioni, . 

Il modello SQ-2000È una stampante a getto 
d'inchiostro, la cui testina di stampa è dotala 
di 24 micron geli! che spruzzano sulla carta 
minuscoli niicropunti d'inchiostro che creano 
caratteri pieni e netti nella stampa di lesti e 
grafici. La velocità di stampai di 105 caratteri 
per secondo, ma può essere incrementata fino 
a raggiungere i 176 cps. 
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Una vera 
e propria 
lavagna su cui 
disegnare , 
cancellare, 
memorizzare 
o caricare 


D 


opo avere dato ìi RUN, sul video 
appare la scritta "DIGITALIZZATO- 
RE' seguita dal menù. Se premete un 
tasto qualsiasi, ad esempio la barra spa- 
ziatrice, lo schermo si cancella e passa al 
modo Alta Risoluzione (dal menù si usci- 
rà sempre così), Ora, al centro del video 
apparirà una croce che potrà essere spo 
stata a piacere con i seguenti tasti: 

"S" = sinistra 


Attenzione! 

II presente programma può girare 
solo se in precedenza sono state carica- 
te le nuove roti Lines grafiche di D. To- 
ma, pubblicate sul n. 14 di C.CC, 
Inoltre per comprendere fuso degli 
sprite con le rou Lines, consiglio di con* 
saltare V articolo “Alta Risoluzione" 
di A. & A, Borioni, pubblicato sul n» 
12 , 

Per quanto riguarda la gestione del 
file su nastro, sarebbe bene leggere 
“Gestione del file su cassetta" di A, 
De Sì mone pubblicato sul n* 1 L 

Prima dì far girare il programma, 
per i motivi che ormai dovreste sape- 
re, salvatelo su nastro o su desco, e 
quindi, date il RUN. Può sempre capi’ 
tare che ci sia, sigli!* qualche errore. 

Se il “maledetto” errore avviene 
mentre siete nel modo Alta Risolo zio- 

k 


ne, sapete che per tornare ai modo 
normale, dovete premere “RUN/ 
STOP + RESTORE". Fatto questo, è 
vero che sbloccate il programma, però 
è anche vero che cancellate finterò 
video, con i relativi “messaggi di 
errore". 

Il modo migliore per procedere, è 
quello di digitare alla cieca TEXTa,b, 
che riporta al modo testo, cancellando 
solo il video in alta risoluzione, senza 
cancellare quello che c*è “sotto". 

Vorrei ricordare, solo brevemente, 
che le Nuove Routinesdi Danilo Toma 
pongono “f Origine" (punto 0,0) al 
centro del video, mentre per gli sprìte 
questo punto si trova in alto a sinistra 
(la trasformazione tra le diverse coor- 
dinate avviene nelle linee 1000 • 1500 
2000). Un’ultima cosa, è che il pro- 
gramma non fa uso della “terza di- 
mensione", posta sempre a zero (0) in 
tutti i comandi DRAW. 


"D" = destra 
“E" = alto 
“X” = basso 

I-/ a velocità di spostamento della croce 
è piuttosto bassa, ma questo va sicura- 
mente a vantaggio della risoluzione. In- 
fatti, la croce sì sposta di un “pixel” per 
volta, essendo il pixel il punto più pìccolo 
che sì può accendere sul video. 

Vediamo óra in dettaglio come si usa il 
Digitalizzatore. 

Per disegnare 

l tasti interessati a questo scopo “FI". 
“F3” e “F5”. Premendo “Fl*\ al centro 
della croce comparirà un puntino, il qua- 
le indica che quel pixel è stato acceso. 

Con i tasti di movimento, 5 - D - E - X, 
posiziona te viin un punto qualsiasi e 
quindi premete F3: verrà tracciata una 
linea tra il primo punto (fissato con FI) e 
il punto in cui ora vi trovate. Se poi pro- 
vate a premere F 5, sempre stando nella 
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stessa posizione, La linea verrà 
cancellata. 

Tutte le Linee tracciate o cancellate fa- 
ranno sempre riferimento al punto pre- 
cedentemente fissato col tasto FI, finché 
non premete nuovamente FI per fissare 
un altro punto, Per disegnare solo punti 
basta premere FI, spostarsi e premere di 
nuovo FI, quindi continuare a disegnare 
come volete. Può capitare che alla fine di 
un disegno vogliate correggere qualche 
particolare: questo lo potete fare usando 
i tasti FI e F5. Posizionatevi col centro 
della croce all’inizio delia linea che vole- 
te cancellare e premete FI quindi porta- 
tevi all'altra estremità e premete F5: la 
Linea in questione verrà cancellata. 

Per cancellare un solo punto, basta 
posizionarsi su di esso e premere Fi se- 
guito da F5 

Attenzione ai tasti W2 e F7 

F2 - Questo tasto è decisamente il più 
'‘pericoloso”: cancella rimerò video e 
riporta La croce nella posizione iniziale. 
Se i dati non erano stati precedentemen- 
te memorizzati, il disegno è perso!?! 

F7 - Ritorna al menù lasciando il disegno 
inalterato: una volta usciti dal menù, sul- 
lo schermo ritroverete tutto come prima. 
Questo comando è stato inserito per aiu- 
tare gli '‘smemorati 1 ’. Per passare da una 
funzione all’altra, infatti, non c’è alcun 
bisogno di tornare al menù (è ovvio che 
gli “smemorati” non devono dimenticar- 
si delta funzione di F7), 

Per memorizzare 

Il programma può memorizzare fino a 
99 linee. Ogni linea è caratterizzata da 
quattro coordinate: le coordinale xleyl 
di un estremo, e le coordinate x2 e y2 
dell’altro estremo. Queste quattro coor- 
dinate sono memorizzate in altrettanti 
vettori: più precisamente, x%(i) contie- 
ne xt, y%(i) contiene yl, k%(i) contiene 
x2 ed infine h%(i) contiene y2. Da quan- 
to detto, segue che un singolo punto sarà 
memorizzato da due coppie di valori 
uguali (x% =k%, y%=h%), 

I tasti interessanti sono “F4", “F6’\ 


“T" e “F8”. 

Premendo il tasto “F4", in basso a sini- 
stra dello schermo, compare una “M f * (a 
proposito, la M è stata costruita col digi- 
talizzatore stesso!}. La M sta ad indicare 
che i dati, da questo momento in poi, 
saranno memorizzati^ A questo punto, si 
può procedere come nel paragrafo “Per 
disegnare”, con la sola eccezione che il 
tasto "F5” NON deve essere usato. Per 
memorizzare una linea, occorrerà pre- 
mere FI, spostarsi nella posizione voluta 
e premere F3, mentre per memorizzare 
un solo punto, va premuto FI e, sempre 
restando nella stessa posizione, F3. 

Ovviamente; anche in questo caso, sul 
video verranno tracciate le linee a i punti 
voluti. Se lìiltima linea tracciata (o pun- 
to) non è come volete, premendo il tasto 
“T" verrà cancellata (attenzione a NON 
usare F5!!!), Per quanto riguarda i dati 
memorizzati della linea cancellata, que- 
sti, in effetti, non vengono “cancellati”. 
Quello che succede (linea 587) è che il 
contatore che incrementa i vettori viene 
decrementato di uno. Quindi, la succes- 
siva quaterna di dati “buoni” occuperà il 
posto di quelli precedenti (corrisponden- 
ti alla linea soppressa) cancellandoli 
automaticamente. 

Da quello che abbiamo visto fin qui* si 
può capire che anche nel modo “ME- 
MO” sì possono cancellare quante lince 
si vogliono, a patto di “tornare indietro" 
ordinatamente (ultime due linee, ultime 
tre linee, ete.). A lavoro ultimato, occor- 
re premere il tasto “F6’\ La pressione di 
F6 cancella la M in basso a sinistra ed 
assegna al successivo x%(i) il valore 999. 
Tale valore avvisa il programma che i 
dati sono finiti: sarebbe inutile farlo con- 
tare fino a 100, se ì valori sono, ad esem- 
pio, solo 20! A questo punto, non rimane 
altro da fare che premere F2 (azzera il 
video) e premere il tasto “F8" (prova 
dati). Sullo schermo apparirà il disegno, 
cosi come è stato memorizzato. Se va 
bene, si passa alla fase successiva, se non 
va bene approfittate di quello che co- 

munque sarà stato disegnato e, premen- 
do F4, ripassate tutto il lavoro con FI e 
F3, correggendo quello che non vi va. 


Per ('accesso dei dati 

STAMPA. Una volta ultimato il lavoro, 
avete la possibilità di ricavare i dati, in 
modo da poterli usare tutte le volte che vi 
serviranno, Premendo il tasto (aste- 
risco), sul video apparirà la scritta 
“Video-carta o nastro?”. 

* Video- corta. Questa opzione si ottiene 
premendo 1 V\ Tutti i dati del disegno, 
compariranno sullo schermo, e, a richie- 
sta, potranno essere stampati. Ogni 
schermata è costituita da 20 righe di 4 
colonne. Per passare ai successivi dati, è 
sufficiente premere un tasto qualsiasi. 
Ogni riga contiene 4 dati, corrispondenti 
alle coordinate xl^ yl, x2 e y2 del 
disegno. 

Al Ila fine dei valori, comparirà la scrit- 
ta “vuoi stampare su carta?" a cui, i for- 
tunati possessori di stampante o di plot- 
ter potranno rispondere con Y (quello 
che succede è scontato). Tutti gli altri, 
quelli sfortunati,, sì dovranno copiare a 
mano i valori RIGA dopo RIGA (è indi- 
spensabile seguire quest’ordine). 

Dopo queste operazioni, si ritorna al 
menù e, da qui in poi, vedete voi! 

* Nastro. Si ottiene premendo “N”. In 
questo modo; potrete salvare i dati rela- 
tivi al vostro disegno su cassetta, c ricari- 
carli quando volete, ottenendo così, un 
“Archìvio Disegni". 

CARICA. In questo modo, potete inseri- 
re dati precedentemente ricavati. Il tasto 
da usare t 41 " (chiocciola). Una volta 
che è stato premuto, apparirà la scritta 
“Manuale o Nastro?", 

* Manuale. Si ottiene premendo “M" 
Ai soliti “?” dell’input, dovete risponde- 
re con i valori da inserire. I dati devono 
essere inseriti nello stesso in cui sono 
stati stampati (devono essere per forza 4 
per riga!!!). Per ogni riga, deve essere 
digitato, m ordine, XI, Yl, X2 e Y2. 
Dopo aver inserirò 3 ultimo dato, inserite 
il valore 999; per i motivi visti preceden- 
temente. lì programma tornerà al menù 
e, col tasto F8, potrete vedere il disegno 
relativo ai dati introdotti. Anche nel cari- 
camento, il numero massimo di linee è 
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99, corrispondente a 3% dati, IL carica- 
mento manuale* è stato inserito per un 
semplice motivo; se si desidera ottenere 
un disegno molto preciso (come ad esem- 
pio un ritratto), un modo per procedere, 
è quello di fare prima il disegno stesso su 
un foglio dì carta millimetrata, usandogli 
stessi assi cartesiani del vìdeo in alta riso- 
luzione, quindi, inserire le coordinate 
così ottenute nel programma e memoriz- 
zarle su nastro. 

» Nastro, Premendo *‘N'\ potrete cari- 
care i file precedentemente salvati su cas- 
setta. A fine lettura, la pressione di un 
tasto quasìasi, riporterà al menù. A que- 
sto punto, per visualizzare i dati caricati, 
si preme un tasto qualsiasi, seguito dal- 
Topzione 4 'prova dati". 


Il programma 

fi listato si presenta già piuttosto chia- 
ro, con l’uso di molte REM, le quali, 
dividono il programma in “pezzi'" facil- 
mente comprensibili. Tra l'altro, tutte le 
REM potete anche non digitarle: ì vari 
“goto”, “gosub" o i+ then f ' non fanno mai 
riferimento ad essi. L’istruzione 
OPEN4,4 di linea 4120 andrà sostituita 
con OPEN4,6 se sì usa il Fletter. 

Suggerirne riti 

Se volete cambiare i tasti di “sposta- 
mento” della croce, dovete cambiare le 
lettere tra l * ” (virgolette) delle linee 590 - 
600-610-620. 


p 

R er cambiare i colori del modo norma 
le, dovete intervenire su tutte le istruzio- 
ni TEXT,b presemi nel programma, 
mentre per ì colori in alta risoluzione 
sulle istruzioni GRAFc,b, nel modo 
spiegato dall'alticcio “Nuove Routines 
Grafiche”, già menzionato alTinizio. 11 
colore dello sprtte (croce), puri essere 
modificato nella linea 290, ne 11 'istruzio- 
ne POKEV+39,A. Un'aggiunta potreb- 
be essere quella di salvare i dati, oltre che 
su cassetta, anche su disco. 

Uif altra ancora, potrebbe essere quel- 
la del disegno a “tratto continuo”, che 
non ho volutamente introdotto per non 
appesantire troppo il programma. 

Giancarlo Castagni! 


DIGITALIZZATORE 

1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 : 

9 : 

10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 s 

18 : 

100 V=53£4 8* POKE 650,128 
110 DIM X% < 1 00 > i D I M YX<100);DÌM K 
X< 100) IO.IM H'/A 100) 

120 POR 1*0 IO 62 5 READ A 5 PO 
K E 31264+ i , A : NEXT 
130 POKE 53240,33: POKE V+21,1 
146 ^TEXT1£,0: X=17£i T=140 
150 PRINT CHR*<147> SFOCIO MRVS 
1 DIGITALIZZATORE CRVOFFJ" CH 
RSC 17) 

155 PRINT SP 0(5) " IRVSJ X - E - S 
- D E RVQFF ] PER SPOSTARSI" 
160 PRINT SPC C5 > ,J CRVSJ 'FI 1 [RVO 
FF I FISSA PUNTO H CHRSC17) 



170 PRINT SPC (5) W [RVS1 *F3' ERVO 
FF] TRACCIA LINEA" CHR$<17) 
180 PRINT SPC <5 ) " IRVSJ f F5 f [RVO 
FF 3 CANCELLA LINEA" CHRSU7) 
130 PRINT SPC (5) MRVSI ’F? 1 [RVO 
FF 3 RITORNA ME NU * m CHRSC17) 
200 PRINT SPC (5 ) "tRVSI 'F2 1 [RVO 
FF 3 CANCELLA VIDEO" CHR*U7) 
210 PRINT SPCC5) 11 [RVS J 'F4 1 [RVO 
FF 1 MEMORIZZA DATI" CHR*<17> 
220 PRINT SPC ( 5 > "[RVS] 'F6 1 CRVQ 
FF 3 FUSE MEMORIZZAZIONE" CHR 
17 ) 

230 PRINT SPC (5) "IRVSJ * F8 1 [RVO 
FF 3 PROVA DATI" CHR$<17) 

235 PRINT SPC (5) "IRVSJ [RVO 

FF3 STAMPA DATI " CHR*<17) 

236 PRINT SPC <5 ) " [RVS J *&’ [RVO 
FF J CARICA DATI " CHRSC 17) 

237 PRINT SPC <5 ) " [RVS 3 T [RVO 
FF 3 CANCELLA ULTIMO DATO" 

£38 PRINT CHR$< 13>; sFOR L=1 TO 
125 FRINT CHR$(17>; NEXT 
£40 PRINT SPCUl) "PREMI UN TASTO 
■ CHR$ (145) 

£30 GEI R*: IF R$=* M THEN 250 
260 IF OOl THEN ! +CLEAR 
£70 G=0: H3RAF3 ✓ 0 : +C0L OR 1 
230 POKE 53240,33: POKE V+21,1 
£80 POKE 53840, 33: POKE V+3S,5 
300 X= 172 « Y = 140 
310 POKE V,X: POKE V+1,Y 
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498 

» 

i 

1 

780 

IF KN>75 THEN KN*75s X=330 

493 

REM *** INPUT *** 

790 

IF Y<4 1 THEN Y=41 

500 

SET 


800 

IF Y>£40 THEN Y^£40 

510 

IF A*=CHR*C 133> 

THEN 1000: 

310 

POKE V,XNS POKE V + 1,Y 


REM 'FI' 


820 

GOTO 500 

520 

IF A*=CHR* C 1 34 > 

THEN 1580: 

938 

.■ 

■ 


REM ' F3 ' 


933 

REM *** FISSA PUNTO **# 

530 

1 

IF A*=CHR* Y 1 35 > 

THEN 2000 i 

1000 

X 1 =X - 1 72 : Y 1 = 140 -Y 


REM 1 F5 ' 


1010 

«-COL OR l: «-PLOTX1 ,Y1 ,0 

540 

IF A*=CHR$a36> 

THEN POKE 

1020 

GOTO 500 


V +2 1,254: G=1 ! GOTO 140: RE 

1438 

» 

A 


M 1 F7 f 


1493 

REM *** TRACCIA LINEA *** 

550 

IF A*=CHR*< 13?> 

THEN 260 ; 

1500 

X2=X-172: Y2=140-Y 


REM ’ FE ' 


1510 

«-COL OR 1: «-DRAWXI ,Y1 ,0,X£,Y2 

580 

IF R*=CHR$<138> 

THEN M= i ! 


70 


1=0: GOSUB 3280: 

REM 1 F4 ’ 

1520 

IF M= 1 THEN GOSUB 2500 

:5?0 

IF A*=CHR*K139> 

THEN M=0: 

1530 

GOTO 500 


GOSUB 3200: GOSUB 3000: REM 

1938 

• 

* 


1 F6 1 

F 

1989 

REM *** CANCELLA LINEA *** * 

580 

IF A*=CHR*C140> 

THEN 3500: 

2000 

X3=X- i 72 : Y3=i40-Y 


REM TS 1 


2010 

«-COL OR 0! «-DRAUX1 ,Y1 ,0,X3,Y3 

585 

I F A$= " # ■ THEN 

4000: REM 


,0 


' * 1 


2320 

GOTO 500 

586 

IF A*="e' THEN 

4500! REM 

2496 

■ 




2499 

REM *** MEMORIZZA DATI *** 

58? 

I F A*= " t “ THEM 

1 = 1-1 : GOTO 

£500 

1=1 + 1 


2000 : REM ’ t 1 


£510 

xxu>=xi:rxa >*yi [K%a >=x 2 :h>; 

583 

« 



< I > =YP 

530 

IF A*=*X" THEN 

Y=Y + i z REM 

2520 

RETURN 


SUD 


2998 

* 

k 

686 

IF A*="£" THEN 

Y=Y-t: REM 

2993 

REM *** FINE MEMORIZZAZIONE 


MORO 



*** 

810 

IF Ai^S" THEN 

X=X-i : REM 

3000 

1 = 1 + 1 


OVEST 


3010 

XX< I ) =333 I 

620 

IF THEN 

X=X+i: REM 

3020 

RETURN 


EST 


3138 

• 

k 

898 

-i 


■ 319S 

REM *** SCRIVE MEMO *** 

G33 

REM *** CONTRQL. 

POS 12- SPR I 

3200 

«•COL OR I: IF M=0 THEN : +CO 


TE *#* 



L OR 0 

700 

IF X<255 THEN 

POKE V+16,8 

3210 

«“□RAW- 150, -90,0, -150,-98,0 

T 10 

IF X >255 THEN 

POKE V+1B,1; 

3££0 

«-DRAW- 1 50 , -90,0, -147, -95 ,0 


GOTO 7 70 


3230 

«-DRAW- 1 47 , -35,0, - 143 , -90 , 0 

720 

IF X< 12 THEN 

X= 12 

3240 

«-DRAW- 1 43 , -90,0, -143, -93 ,0 

730 

I F Y< 4 1 THEN 

Y=4 1 

1 3250 

RETURN 

740 

IF Y^-240 THEN 

Y = £40 

3498 

« 

M 

748 

m 

« 


3493 

REM *** PROVA DATI *** 

749 

REM *** MUOVE SPR ITE *** 

3500 

FOR J=1 TO 100 

750 

POKE V,X: POKE V+!,Y 

3510 

IF X:Y<J>=999 THEN 3540 

760 

GOTO 509 


3520 

«-COL OR 1: ^-DRAUXX(J) ,YX<J>,0 

768 

A 

■ 



,0 

763 

REM *** SPR I TE OLTRE 255 *## 

3530 

NEXT 

770 

XN=X-255: REM NUOVA X 

3540 

GOTO 500 

— — — fc. 1 
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3933 

3993 

4000 

4003 

4005 

4006 

4007 

4008 
4010 

4030 

4030 

4040 

4050 

4060 

4070 

4030 

4090 

41B0 

41 10 

4115 

4116 

411? 
4118 
4 1E0 
4130 
4146 
4150 
4160 
4170 


4180 

4190 

4200 

4493 

4433 

4500 

4501 

4502 

4503 

4504 

4505 
4503 


REM *** STAMPA DATI **# 

PRINT CHRSC147): <-TEXT!£,0 
PRINT " [RVS ] STAMPA DATI [RVO 
F F 3 11 CHR^U 7> 

PRINT H CRVS3VIRVOFF3 IDEO-CA 
RTA □ CRVS 3NERVOFF 3 ASTRO ?" 
3ET IF RS^'N" THEN B0 

00 

tF R*=*V H THEN 4010 
GOTO 4008 
POR J=1 TO 100 
IF X%< J ) -993 THEN 4060 

print xx<j>;yx<j);kxcj);h%U) 

IF J =20 OR J ”40 OR J-60 
OR J ~80 THEN 4100 
NEXT 

PRINT ■ VUOI STAMPARE SU CAR 

TA ? ( Y/N> " 

RS= "N 11 THEN 140 
THEN 4U5 


GET RSS IF 
IF R$= " Y" 

GOTO 4070 . 

GET R JF R$=* w THEN 410 

PRINT CHR3KÌ4?)! GOTO 4050 

PRINT * HAI COLLEGATO LA PER 

IFERICA ? <Y/N) rt 

GET IF R$= "Y" THEN 41 

20 

IF R$=”N tt THEN 4080 
GOTO 4116 
OPEN 4,4 

INPUT j, NOME u T N$ 

PRINT44,W: PRINTW4 
FOR J-i TG 100 
IF X^CJ>*999 THEN 4130 
PR INT#4 ,X*/< J ) ; TA ( J > ; H'AiJ > ; KX( 
J) 

NEXT 

PRINTH4; PRINTH4; CLOSE 4 
GOTO 140 

v 

1 f 

REM *** CARICA DATI **# 

PRINT CHRÌ< 147 ) : <-TEXT12,0 
PRINT * [RVSJCARIC AMENTO DATI 
IRVOFF ] " CHR$<1?) 

PRINT ■ IRVS IMtRVQFF 1ANUALE 
0 IRVS INIRVOFF 3ASTRO ?” 

GET R4: IF R*='’N" THEN 65 

es 

IF R$="M" THEN 4506 

GOTO 4503 

FOR J = 1 TO 100 


4510 

4520 

4525 

4526 

4530 

4540 

4998 

4999 

5000 


INPUT X7.(J>; IF XX< J ) =999 T 
BEN 4540 

PRINT CHR$U 45) SPC(7Ji: INPU 
T YX < J > 

PRINT CHR$<145 > 3PC < 14 Jf s INP 

UT KX<J> 

PRINT CHR$< 145 > SPC(21)Ji INP 
UT HXC J > 

NEXT 

GOTO 140 


REM *** DATA SPRITE #** 

DATA 0,0,0 ,0 ,0 ,0,0, 8,0 ,0 ,8 ,0 
,0,8, 0,0 ,3 ,0 ,0,8,0 ,0,3,0 
5010 DATA 0,0,0, 127, £2? ,254 ,0,0,0 
,0 ,8, 0,0, 8,0 ,0,8, 0,0, 3,0 
50£0 DATA 0,8, 0,0, 8, 0,0 ,8 ,0,0, 0,0 

,0 , 0 , 0 , 0 , 0 ,0 
5398 : 

5999 REM **» SALVA DATI SU NASTRO 

6000 PRINT CHR*U47> 

6010 INPUT " NOME FILE"? N* 

6020 OPEN 1,1, 1,R* 

6030 FOR 1=1 TO 100 
6040 PRINT# 1 ,XX( I ) : IF X7,U)=339 
THEN 6090 
6050 PR INT# 1 ,YX( I ) 

6060 PR INT# 1 ,HX< I ) 

6070 PR INT# 1 ,KX( I ) 

6080 NEXT 
6090 CLOSE 1 
6100 GOTO 140 

6498 : 

6499 REM *** CARICA DA NASTRO #** 

6500 PRINT CHRSi 147 ) 

6510 OPEN 1 

8520 FOR 1=1 TO 100 
6530 INPUT# ! ,XX< 1 ) i GOSUB 6700; I 
F XX U) =993 THEN 6580 
6540 INPUT# 1 , YX< I > ! GOSUB 6700 
6550 INPUT# 1 ,HX< I ) ! GOSUB 6700 
6560 INPUT# 1 ,KX< I > ! GOSUB 6700 
6570 NEXT 
6580 CLOSE 1 
6590 GOTO 140 

6700 IF 3T THEN PRINT B ST=“ST: 
GOTO 6720 

6710 RETURN 

6720 PRINT" PREMI UN TASTO* 

6730 GET R*S IF R$="° THEN 673 
0 

6740 GOTO 6580 


34 - Commodore Compili tr Club 



STUDIO D 

PER NON SMARRIRE MAI IL FILO DEL DISCORSO. 
STUDIO D 

EMITTENTI RADIOTELEVISIVE INDIPENDENTI (HE SI FANNO SENTIRE. 


studio 
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CONCESSIONARI MEZZI 
RADIOTELEVISIVI 
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GRAFICA 

VIC 20 

Alta Risoluzione 

PER VIC 


Due programmi per 
andare in alta 
risoluzione e ottenere 
grafici con il VIC 20. 



Re 

gistri 656 1 

1- 

36864-S9000 = 

Bit 0-6 distanza prima colonna dal bordo sinistro 

2- 

36665 -S9001 = 

Bit 0-7 distanza prima riga dal bordo superiore 

3- 

3686 6- £9002 » 

Bit 0-6 numero colonne 

Bit 7 fa parte dell 'indirizzo dinìrio Mappa Video 

4- 

36867-S9O03 = 

Bit 1-6 numero righe 

Bit 0 seleziona il formato dei caratteri 0=8 *8 1—16*8 

5- 

36868-S9004 = 

Bit 0-7 posizione numero linea raggio di scansione video 

6 - 

36869-$9005 = 

Bit 0-3 inizio generatore caratteri 

Bit 4-7 indirizzo Mappa Video 

Figura 1 




er alta risoluzione si intende il modo 
che permette di “accendere” sui video 
un singolo punto o, per meglio dire, PI- 
XEL (che appunto significa PCture ELe- 
ment, cioè la più piccola unità di dise- 
gno). Normalmente ci troviamo in bassa 
risoluzione. Infatti se dopo aver acceso il 
nostro “cervellone” (ovviamente mi rife- 
risco al VIC 2Q!), premiamo ad esempio 
il tasto corrispondente alla lettera * l A'\ 
vediamo apparire sullo schermo tale ca- 
rattere. Ma come ben sa chi ha letto l’ar- 
ticolo “Caratteri Programmabili sul VIC 
20”, la lettera “A” è in realtà fonnata da 
una griglia 8*8 di singoli punti (PIXEL 
appunto come d'ora in avanti li chiame- 
rò). Quindi premendo un tasto in realtà 
noi visualizziamo ben 64 Pixel sul video. 

A questo punto ci si chiederà quanti 
Pixel possono essere visualizzati sullo 
schermo del VIC 20, Basta eseguire un 
piccolo calcolo matematico. Poiché io 
schermo del VIC è formato da 23 righe 
per 22 colonne, moltiplicando otteniamo 
506: sono le possibili posizioni che nor- 
malmente possono essere occupate dal 
cursore, Ma, come abbiamo visto, ognu- 
na delle 506 posizioni può contenere uno 
dei molteplici caratteri del VIC 20, E 
poiché ogni carattere è in realtà formato 
da 8*8=64 Pixel, ecco che avremo 
22*8=176 Pixel per le colonne e 
23*8—184 Pixel per le righe: in totale 
176* 184—32384 Pixel utilizzabili per Tal- 
ta risoluzione, 


on che sia poi molto. Ma sono già 
sufficienti per realizzare qualche grafico 
simpatico. Ovviamente se Mamma Com- 
modore avesse dotato il VIC 20 di un 
BASIC con qualche comando di grafica, 
il nostro lavoro sarebbe stato molto sem- 
plice, ma allora che gusto ci sarebbe sta- 
to? Forza allora, rimobocchiamod le 
maniche e mettiamoci al lavoro! 

Consiglio comunque di andarsi a rileg- 
gere il mio articolo sui caratteri program- 
mabili pubblicato sul numero di dicem- 


bre di C.CC.: Si farà uso di informazioni 
li mostrate e che sarebbe inutile ripetere. 
Venivano spiegati in maniera dettagliata 
ì vari registr delììntegrato 6561, quello 
appunto destinato da Commodore ad 
eseguire tutte le Funzioni principali dì 
gestione del video. Ripropongo comun- 
que uno schema riassuntivo dei principa- 
li registri deUìntegrato in figura 1. Inol- 
tre, sempre ne U 1 artico lo di dicembre, vi 
era già un antìcipo di grafica in alta riso- 
luzione con il programma ISTO- 
GRAMMI”. 



-r- f. • ^ 
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Per poter realizzare un grafico in alta 
risoluzione si sfrutta una delle molte pos- 
sibilità che il VIC 20 offre, e cioè quelle 
di creare una nuova mappa caratteri po- 
sta in una zona RAM escludendo quella 
che normalmente utilizza, e che si trova 
iti ROM a partire dairindirizzo 32768. In 
pratica non si fa che riempire Ì1 video con 
i 256 caratteri della 4 'nuova mappa carat- 
teri” che il VIC 2(1 permette di ricostruire 
ìn RAM. 

La '"mappa caratteri” diviene quindi 
un’immagine della 44 mappa video" in 
memoria, ed ogni bit in RAM corrispon- 
de ad un Pixel del video. Quindi set tando 
un determinato bit, cioè ponendolo ad 1, 
non faremo altro che accendere il Pixel 
corrispondente sul video. 

A desso viene il difficile: come possia- 
mo sapere qua fé con precisione il bit da 
settate per accendere un determinato Pi- 
xel? Basta aver posto nella mappa video i 
caratteri con un ordine che ci consenta di 
ritrovare il corrispondente carattere nel- 
la mappa caratteri che abbiamo posto in 
RAM, 

Questo ordine non facciamo altro che 
copiarlo da quello che già viene utilizzato 
dal VIC. Basta infatti esaminare il ma- 
nuale e troviamo lo schema dei codici di 
schermo dei 256 caratteri posseduti dal 
VIC 20. 

Scopriamo così che al codice 0 corri- 
sponde la “ ”, airi la “A”, al 2 la “B'\ 
e così via sino al 255 che è il t4 X". Tali 
codici noti sono altro che i valori da po- 
llare nella mappa video per visualizzare 
un certo carattere. Ad esempio: poke 
7680,7 visualizza in alto a sinistra la lette- 
ra “G" (è da notare il fatto che per visua- 
lizzare realmente tale carattere occorre 
anche lavorare nella mappa colore ed 
eseguire poke 38400,0 che corrisponde a 
rendere il colore del carattere nero, altri- 
menti otterremmo il carattere bianco su 
sfondo bianco: invisibile). 

A questo punto è chiaro come dovre- 
mo comportarci per poter realizzare il 
nostro grafico in alta risoluzione. 
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Basterà cioè utilizzare un ciclo <4 fGR 
... NEXT" che “poto" nella '"mappa vi- 
deo" i 256 caratteri per Vie: 

10 far i=0 to 255 

2(1 poke 7680+ij: poke 38400+1,0 
30 next i 

(questo esempio si riferisce al Vie 20 in 
versione base o +3K, Chi volesse utiliz- 
zare espansioni maggiori dovrà apporta- 
re le opportune modifiche, soprattutto 
per quel che riguarda fumo della “map- 
pa video" che con esp ansio noi maggiori 
ai 3K è posto a 4096-$ 1000), 

A questo punto pe^ò saremo sempre 
in bassa risoluzione ed otterremo solo un 
video con tutti i caratteri disponibili sul 
VIC, Dobbiamo quindi avvertire il no- 
stro amico Vie 20, o meglio ancora il suo 
integrato 6561, che vogliamo lavorare 
sulla nostra mappa caratteri. 

Per far questo, come abbiamo visto il 
mese scorso, è sufficiente aggiungere la 
seguente linea al nostro programmino: 

5 poke 36869,255 

questo dice al Vie 20 che la mappa carat- 
teri non si trova più a 32768-$8000, ma a 
7168-SlcOO che per Fappunto è una zona 
di RAM standard. 

o ra, per evitare di dover anche ese- 
guire delle POKE sulla “mappa colore” 
per rendere visibili i Pixel come visto più 
sopra j sarà opportuno cambiare il colore 
al video e renderlo tutto NERO con: 

40 poke 36879,8 

Eliminando, ovviamente, il POKE 
3840+1,0 di riga 20. 

Fino ad ora niente di nuovo. Dobbia- 
mo far in modo di 44 accende re" il Pixel 
che vogliamo, meglio ancora, settare il 
bit relativo nella nuova mappa caratteri. 
Per far questo dobbiamo trovare un algo- 
ritmo adatto che tenga conto del modo in 
cui abbiamo posizionato i caratteri sul 
vìdeo e quindi di come si posizioneranno 
i vari Pixel. Si tenga presente che i primi 
8 byte della mappa caratteri occupano la 
prima posizione ìn alto a sinistra del vi- 
deo, i secondi 8 la seconda e così via . 

Ammettiamo che il Pixel da accendere 
sia posto alle coordinate cartesiane x,y, 
assumendo come origine l'angolo m alto 
a sinistra dello schermo (sì ricorda che il 


vìdeo in alta risoluzione è di 176x184 
punti). Per prima cosa calcoliamo quale 
delle 506 posizioni, che il cursore può 
assumere sullo schermo in bassa risolu- 
zione, contiene tali coordinate; e queste 
nnn sono altro che i quozienti inten dati 
dalle divisioni seguenti: 

A^-x/8 : B%=y/8 

lì 

m^W abbiamo ora calcolare in quale posi- 
zione alPintemo di tale cursore si trova il 
nostro PixeL Questo è abbastanza facile 
in quanto basta trovare i resti delle divi- 
sioni più sopra che possiamo calcolare 
così: 

Cl%=x-A%*8 : C2%^y-B%*8 
dove Cl% e C2% sono rispettivamente 
l’ascissa e l'ordinata del Pixel alFintemo 
de! cursore. Adesso che conosciamo con 
esattezza in quale posizione video si tro- 
va il nostro Pixel possiamo calcolare con 
relativa facilità qual’è il bit da porre ad 1 
nella mappa caratteri che corrisponde a 
tale Pixel, Prima di tutto dobbiamo tro- 
vare il byte che contiene il bit in 
questione. 

E' facile: come ricorderete, avevamo 
messo nella mappa video i caratteri ordi- 
nati in maniera crescente utilizzando il 
loro codice dì schermo. Ci è quindi suffi- 
ciente utilizzare i dati di cui siamo gii in 
possesso, e cioè: 

5120 = inizio mappa caratteri in RAM 
A% = ascissa posizione cursore 
B% = ordinata posizione cursore 
C2% — ordinata posizione bit nel 
cursore 

Inoltre sappiamo che ogni cursore 
contiene 64 Pixel corrispondenti a 64 bit, 
quindi avremmo: 
C%=5210+B%*128+A + 8+C2% 
dove C% sarà quindi la posizione in 
RAM del byte che contiene il bit che 
dobbiamo settare (ometto per i più vo- 
lenterosi la spiegazione del perchè si sia 
messo nella formula B%*128e A%*8). 

Siamo, finalmente, giunti al termine 
del nostro lavoro, basta infatti ricordarci 
che per pome ad l(settare) un determi- 
nato bit bisogna pokare, nel byte che lo 
contiene, il numero 2 (7-j), avendo nu- 
merato i bit da sinistra verso destra. Ma è 
ovvio che dobbiamo lasciare invariati gli 


Commodore Computer Club - 3? 


GRAFICA 


altri 7 bit, Dovremo fare: 
poke C% , 2f (7-0%) or peek (C%) 
dove infatti Cl% è la posizione dei bit 
aH’intemo del byte. 

Et voìlà, les jeux som faitsM 

T 

ornando al nostro programmino pos- 
siamo ora completarlo: 

A questo punto ei si sarà resi conto, 
fino ad ora abbiamo parlato di "riempi- 
re 1 ’ il video con i 253 caratteri disponibili 
sul nostro Vie 20. Ma come è possibile 
farlo se, come abbiamo detto, le posizio- 
ni del cursore sul video sono ben 506? 

Per risolvere il problema possiamo 
trovare molti metodi: potremmo utiliz- 
zare caratteri I6 + 8, Come abbiamo visto 
il mese scorso è sufficiente settare il bit 0 
del registro 4 del 6561 posto a 36867- 
$9003, ma se facciamo un po’ di conti 
vediamo che per far questo avremo biso- 
gno di ben 4K di RAM libera per la 
mappa caratteri! E quindi questo è possi- 
bile solo se si ha la fortuna di possedere 
un'espansione da almeno +3K. 

Oppure, sempre lailizzando quanto 
abbiamo imparato il mese scorso, po- 
tremmo ridurre le dimensioni del video 
aga rdo sui registri l, 2, 3, 4 de 

6561 (come viene fatto nel programma 
Graphics). 

Un altro metodo potrebbe essere 
quello di non utilizzare tutti i 256 caratte- 
ri, ma di aprire una specie di finestra in 
alta risoluzione sul video che contenga 
una piccola parte dei caratteri stessi (co- 
me si è fatto nel programma Vie doodle), 

I programmi 

Come esempi di applicazione delimita 
risoluzione vi propongo due programmi - 
ni diversi, 

G rapine: si tratta di una delle tante ver- 
sioni che disegnano grafici di funzioni e 
che possono essere di aiuto nello studio 
di semplici funzioni matematiche, 1 mag- 
gior vantaggi di questa versione sono 
due. Il primo è che gira su un Vie senza 
espansioni (non ci si lasci impressionare 
dal breve listato, in realtà dopo aver dato 
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il RUN occupa ben 34455 bytes, ovvia- 
mente senza le già pur poche REM). Il 
secondo è che consente dì disegnare più 
funzioni sowrapposte contemporanea- 
mente. 

Questo grazie al fatto che dalla lìnea 
150 alla 170 sì ha un ciclo FOR . . , NEXT 
al cui interno si trova la definizione della 
funzione ed il salto alla sub routine che 
calcola e plotta il punto, E T quindi suffi- 
ciente inserire dalla linea 160 alla 170 
linee di programma così fatte; 

162 def fn y(x)= Funzione : gosub 180 

Per avere il grafico di più funzioni in 
contemporanea (è inutile precisare che il 
programma è totalmente in Basic e che 
quindi la sua velocità è limitata e più 
calcoli si fanno eseguire al Vie più si ral- 
lenta la visualizzazione dei grafici). 

D alla linea 260 alla 270 si trova il me- 
nù che consente di disegnare la/le 
funzione/i dopo aver richiesto l'ampiez- 
za degli assi cartesiani; 

* cancellare il video in alta risoluzione; 

* uscire dal programma. 

Dalla linea 1 10 alla lìnea 230 si trovano 
le varie subroutines: alia linea 110 Tazze- 
ramento della zona RAM riserveta alla 
mappa caratteri, alla 120 stampa dei 256 
caratteri su video , alla 130 riconfigura- 
zione schermo video e disegno assi carte- 
siani, definizione e calcolo delle funzio- 
ni, alla 190 attesa tasto "CTRL" e ritor- 
no ai menù, alla 210 calcolo e flottaggio 
Pixel, alla linea 220 e 230 dove ritrovia- 
mo Talgoritmo precedentememte visto. 

Consiglio di ricopiare il listato cosi co- 
m’è, saltando le REM, senza apportare 
modifiche che potrebbero causare un 
messaggio di "GUT OF MEMORY" du- 
rante la fase di calcolo della funzione. 

Per verificare la correttezza della tra- 
scrizione provate a rispondere: -5,5 per 
le “X” e -1,1 per le "Y*\ 

Vie doodle: come già si comprende dal 
nome, si tratta di un programma che con- 
sente di "scarabocchiare" sul video del 
Vie 20, E 1 stato realizzato per non occu- 
pare troppa memoria e consentire quindi 
di modificarlo a piacere. Senza le REM, 
infatti, occupa 2640 bytes e quindi rima- 


ne circa un 1K lìbero per le varie modifi- 
che (il programma gira su dì un VIC ine- 
spanso o con +dK), 

I comandi che accetta sono: 

* D che permette di disegnare mentre 
ci si sposta sul video; 

* C che consente dì cancellare Pixel a 
Pixel; 

* M che permette di spostarci alTinter- 
no della finestrella grafica senza modifi- 
care quanto già vi si trova (la posizione ci 
è data da un Pixel lampeggiante); 

* CLR, cioè il secondo tasto in alto a 
destra, che cancella la finestra grafica. 

Per lo spostamento poi si usano i tasti 
cursore (CRSR) per sopra, sotto, destra 
e sinistra e FI, F2, F5, F4, per spostarci 
in diagonale. Tutte le istruzioni necessa- 
rie al funzionamento del programma so- 
no sul video. 

Ai posse sori di uno dei vari joystick in 
commercio non sarà difficile apportare le 
modifiche per poter lavorare con tale at- 
trezzo eliminando i tasti (consiglio di an- 
darsi a rileggere l’articolo a pag, 29 del 
numero 12 di giugno 1984 di Commodo- 
re Computer Club a cura di Alessandro 
De Simone), 

Alla linea 120 sì trova la subroutine 
che pulisce Varca RAM destinata a con- 
tenere la mappa dei caratteri. 

Dalla linea 130 alla 250 si ha la visualiz- 
zazione dei comandi nella parte alta del 
video. 

Alla 260 si ha la creazione della fine- 
stra in alta risoluzione sulla parte centra- 
le bassa dello schermo. 

Dalla 260 alla 450 si trovano le istru- 
zioni che controllano ì comandi e lo spo- 
stamento alTintemo della finestrella, 

Alle lìnee 460,470,480 si può ritrovare 
Tormai noto algoritmo, 

Dalla linea 490 alla 510 sì ha l’esecuzio- 
ne dei comando scelto D=di$egna; 
M = muove 
canee Ila. 

Alla linea 520 si ha il ritorno all'attesa 
del nuovo comando. 

Per finire, un indovinello per i più bra- 
vi: a che cosa serve la tinca 110, sapendo 
che Vie doodle t totalmente in Basic? 


GRAFICA 


18 REM V1C E0 iNESFANSO: 

15 REM ILLUMINAZIONE DI UH PIXEL 

i 

20 REM ATTENDERE CIRCA 18 SECOND 

I . 

30 REM PER USCIRE PREMERE 
40 REM R UN/3 TOP à RESTORE 
50 : 

100 INPUT "COORDINATE PIXEL"JX,Y 
110 PDKE 38863,253 
120 FRI NT CHR$<14?> 

130 FOR 1=0 TO £56*8: POKE 512 
0 + 1 ,3 : NEXT 
140 FOR 1=0 TO £55 
150 POKE 7680 + 1 , I 
160 NEXT 1 
170 POKE 36879,8 
180 AX=X/8: BX=Y/8 
190 CX=5 120+BX* 1 £S+A%*8 +CHX 
200 POKE CX ,£T <7-C 1X> OR PEEK<C 

x> 

210 GOTO £10 


10 REM VCI £0 IMESPANSO 
£0 REM VIC DOODLE 
40 REM DI GIOVANNI BEANI 
90 : 

100 POKE 56, £4: POKE 5E, 24: GOTO 130 
110 SYS <4036 >: REM ** USCITA PROGR 
AMMA * * 

115 REM ** PULISCE CARATTERI IN R 
AM ** 

1 20 POR 1=7168 TO ?679:P0KE I,0:NE 
XT: RETURN 

1£5 REM ** INIZIO PROGRAMMA ** 

130 PR INTCHR$( 147 )CHR$ (8 ) ! GDSUB 1£ 
0 

140 POKE 36379 ,3 ! POKE 36869,£55:RE 
M ** COLORE SCHERMO E PDS 12 IO 
NE NUOVA MAPPA CARATTERI *# 

150 FOR 1=7680 TO 8185: POKE 1,160: 
NEXT: REM! ** RIEMPIE VIDEO CON 
SPAZI ' SH IFTATI ' ** 

155 REM #* VISUALIZZAZIONE DOMANO 
I ** 

160 F $= ” ” :R*=“ IRVSI I " 

170 PR INT" [HOME I [RVS3 [VERDE 3 *V ICDO 
OOLE* DI G . BEAN I I B I ANCO 1 1 DOWN J 
COMflf'Dl :D =01 SEGNA" 

180 PR INT TAB<9 J " tRVSIC "CANCELLA” 
180 PRINT TABO) “ [RVS 3M=MUQVE ” 


£00 PRINT TAB<7) " [RVS3CLR=INIZ IALI 
ZZA" 

£10 PRIMI” ERVSJCRSR = SU/GIU ' /DX/S 
X I DO UN 1 " 

££0 PRINT" IRVS1F1=GIU '&DX F5=GIU' 
&SX " ; 

£30 PRINT" IRVS]F£=SU & SX F4=SU &. 
DX"; 

£40 printspc<7>"£RVS]+- = fine” 

£45 REM ** CREA CORNICE ** 

£56 PRINT TAEKE8) " CRVS ì /'F^'V' :FOR 
1 = 1 TO 8 SPRINT TAB(6)RSSPC<3> 
R*: NEXT SPRINT TAB<6) " IRVSJ *-"F$ 

” J 11 ; 

£55 REM ** SCRIVE SU VIDEO I 64 C 
ARATTER I POSTI IN RAM ** 

£68 FOR 1=0 TO 7: FOR J=0 TO 1 - POKE 
7935+1 *££+J , I *3+J ! NEXTJ , I 
£70 CLR :S=63iF$=”M" SGOTO 460 
£75 REM ** COMANDI ** 

£80 GET Ri* 

£30 IF R*=”+- B THEN 110 
300 IF R$="0” THEN F*=R$ 

310 IF R$=”C" THEN F$=R$ 

3S0 IF R$="M" THEN F$=R$ 

330 IF R$=” [CLEARI” THEN GOSUB 120 
SGOTO £70 

340 IF R$= " IR IGHT ] " THEN X=X+1 
350 IF R$= " [LEFT] " THEN X=X-1 
360 IF R$= ,, rUP]'' THEN Y=Y-1 
370 IF R$= " [ DOWN ] " THEN Y=Y+ 1 
330 IF R$=" CTF1 3 ” THEN X=X+1SY=Y+1 
390 IF R$= " [TF5 I " THEN X=X-1SY=Y+1 
400 IF R$="[TF63" THEN X=X+i:Y=Y-l 
410 IF R$=”[TF23" THEN X=X-1 : Y=Y-1 
4£0 IF X<0 THEN X=0 

430 IF X>S THEN X=S 

440 IF Y<0 THEN Y=0 

450 IF Y>S THEN Y=S 

455 REM ## CALCOLA POSIZIONE CARA 
TTERE E PUNTO NEL CARATTERE ** 
460 A7.=X/8 i 8X=Y/S : R 1 =X-AX*S SR£=Y-B 

y.*s 

470 V =£t <7-R 1 ) 

480 C=?168+BX*64+AX*8+R£:V1=PEEKCC 

> 

435 REM #* ESEGUE COMANDO ** 

490 IF F*=”0" OR F$="M” THEN POKE 
C, VI OR V : REM ** ACCENDE PIXE 
L ** 

560 IF F*=”M" THEN FOR 1=0 TO £0:N 
EXT: POKE C,V1:REM ** LAMPEGGI 
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GRAFICA 


O PIXEL ** 

510 IF F*="C" THEN POKE C,V1 AND < 
255 -V ) : REM ** SPEGNE PIXEL ** 
520 GOTO 280 t REM ** ATTESA COMAND 
0 *# 


10 

REM 

VIC 20 INESPANSO 


20 

REM 

GRAPHICS 


40 

REM 

DI GIOVANNI BEANI 


30 

« 

b 



100 

POKE 

56 ,20: POKE 52, 20! GOTO 

240 

105 

REM 

** SUBROUTINE: PULISCE 

CAR 


ATTERI RAM ** 


1 10 

POKE 

R+ 15, 8: FOR 1=5120 TO 

7168 


: POKE I ,0 : NEXT: RETURN 


115 

REM 

## SUBROUTINE! STAMPA 

256 


CARATTERI SU VIDEO ## 


120 

FOR 

1=0 TO £55!P0KE 7G80+I 

, I :N 


EXT? 

RETURN 


125 

REM 

*# RESTRINGE VIDEO ** 


130 

POKE 

R +3, 32 : POKE R +2, 144: POKE 


R + 1 , 

47: POKE R , 18: POKE R+5, 

253 i 


GOSUB 120 



135 REM ** DISEGNA ASSI CARTESIAN 
I ** 


140 IF X%=>0 OR Y%=>0 THEN FOR 1=0 
TO S-l STEP 4 :X=XX* Y= I : GOSUB 
£10:X= I : Y=S-YX: GOSUB £10 JNEXT 

150 FOR X=0 TO S-l 

160 DEF FNY<X)=SIN<X):GOSUB 180 

161 REM INSERIRE DA QUI LE ALTRE 

FUNZIONI NELLA FORMA: ’DEFFNYIX 



170 NEXT ! GOTO 180 

130 Y=S-YM-FNY< <X-XX>/UXX>*UYX:GOS 
UB £10:RETURN 

190 LJAIT 653, 4: GOTO £50: REM ** AT, 
TESA TASTO 'CTRL' ** 


£05 REM ** ROUTINE PLOT PUNTO SU 
MAPPA CARATTERI IN RAM ** 

£10 IF (X<0. OR X=>S> OR ( Y<0 OR Y= 
>S> THEN RETURN 

£20 AX=X/8 : BX=Y/8 : C 1 X=X-AX*B : C£X=Y 
- B'A*8 

230 VX=£t(7-Cl/;> :Cy.=51£0+BX*S+AX*8 
+C£%: POKE Cy.,VM OR PEEK < C% ) : RE 
TURN 
£35 : 

236 REM ** INIZIO PROGRAMMA ** 

£40 R =36964 : S = 1£8 : GOSUB 110 

' ■> *■ 

245 REM ** RIPRISTINA VIDEO ALLA 
NORMALITÀ* ** 

250 POKE R, 12 s POKE R + 1,38: POKE R+£j 
, 1 50 ? POKE R+3 ,46 5 POKE R+5,240: 
POKE R + 15 , 104 
255 REM ** OPZIONI ** 

260 PR INT " C CLEAR H 8 I ANCO ] £ DOWN ] 1 >F 
UN n s PR I NT " £ DOLN 1 2 >CLR " : PR INT W t 
D0LN]*)EM3 ,t 

270 GET R$:IF R^= ,, * ,} THEN END 
280 ON VALCR$>0QTO 290 ,240 : GOTO 27 
0 

2S5 REM ** INPUT VALORI ASSI CART 
ES I ANI ** 

290 PRIMI 1 ' ICLEAR 3 1 DO UN J ASSE X W :INP 
UT "tDOLdNjXl ,X2 M ;X1,X2 
300 IF X 1 = >X2 THEN 290 
310 PRIMI* 1 [DOWN] ASSE Y": INPUT "EDO 
LIN3Y1 ,Y2";Yi ,Y2 

320 IF Y 1 = >Y£ THEN PR INT* C5 UP3 ] * = G 
OTO 310 

325 REM ** CALCOLO UNITA* ASSI CA 
RTES I ANI ** 

330 UX%-S/ (X2~X 1 ) s *(X1#UX^) 

340 UY%=S/<YS-Yi ) S YX=-<Yi*UY%> 

350 GOTO 1 30: REM ** SALTO ROUTINE 

DISEGNO ALTA RISOLUZIONE It 

_ - — 
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L’ Pm.IS 

COMMODORE 64 

Istogrammi 
in Alta Risoluzione 

di Massimo Fotlufri 


c 


ome certamente avrete intuito dal 
titolo, anche in questo programma ven- 
gono utilizzate le routine grafiche in 
L.M. di D. Toma pubblicate sul N.14 di 
C.C.C, e diffuse su nastro dall'altra no- 
stra rivista Commodore Club. 

Ne approfittiamo anzi per comunica- 
re, senza falsa modestia , che le routine di 
Toma sono attualmente le routine grafi- 
che più utilizzate in Italia sul Commodo- 1 
re 64, 

Credo non sìa necessario parlare di 
queste favolose routine che permettono 
di lavorare sulla pagina grafica con nuovi 
comandi Basic, 

Vediamo ora cosa dovete fare per uti- 
lizzare il programma* 

Prima di tutto richiamate, tramite re- 
gistrato r e o drive, le ruotine grafiche ed 
attivatele nel modo noto. Successiva- 
mente copiate il programma pubblicato 
in queste pagine. Vi consiglio comunque 


Un ’ applicazione 
classica per computer 
dotati di schermo in 
alta risoluzione. 



di copiare prima il programma e poi di 
continuare la lettura dell’articolo. 

0 programma 

Dato il RUN al programma, compare 
il menu di lavoro. Scegliete Topzione 41 V' 
(immisione dati) premendo il tasto 
corrispondente, 

A questo punto compare un campio- 
nario dì colori affiancato da un numero. 
Alla domanda COLORI? rispondete ad 
esempio con: 1,13,5 oppure 1,10,2 (chia- 
ramente premendo RETURN dopo ogni 
numero). 

Viene quindi richiesto il valore dell'i- 
stogramma mediante la domanda NU- 
MERO DELLA BARRA?* Rispondete 

con “1”, 

Non siete obbligati a dare il valore del- 
le barre in un dato ordine: siete comple- 
tamente lìberi di immetterli net! 'ordine 
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L’UTILE 


die preferite. 

Premendo il tasto RETURN vi viene 
chiesto VALORE DELLA BARRA?; 
rispondete, ad esempio, con 1350. 

Uno alta volta inserite, come eserci- 
zio, tutti i dati numerici riportati in figura 

L 

Date quindi valore nullo a due o tre 
barre (per mettere un pò di spazio tra i 
due gruppi di barre) e di seguito immet- 
tete i valori delia figura 2, 

Per tornare al menù rispondete alla 
domanda NUMERO DELLA BAR- 
RA? con i[ M'\ seguita da RETURN. 

Tornati al menu, scegliete F opzione 3 
(correzione dati) per controllare di non 
aver fatto errori di trascrizione. 

In primo luogo viene presentata una 
mappa dati sulla quale viene visualizzato 
per ogni barra il corrispondente valore. 

Avete commesso qualche errore? 
Niente paura! 

Appena presentata la mappa dati vie- 
ne domandato INSERIRE NUMERO 
BARRA DA CORREGGERE?; dove- 
te rispondere indicando la barra, ma di- 
gitata (1, 2, ecc.). 

Premuto RETURN, compare la scrit- 
ta INSERIRE NUOVO VALORE 
DELLA BARRA?, cui rispondete con 
['esatto valore. 

A questo punto* se avete altre corre- 
zioni da fare, rispondete con “$” alla 
domanda ALTRI DATI DA COR- 
REGGERE?, In caso contrario, rispon- 
dendo N, dopo qualche secondo viene 
visualizzato il grafico. 

Premendo un tasto qualsiasi ritornere- 
te al menu. 

Facciamo un’altra ipotesi: i colori che 
avete scelto non vi piacciono. Molto 
semplicemente cambiateli tramite l'op- 
zione 1 e tornate di seguito al menu. 
Infatti il programma non cancella mai i 
valori delle barre a meno che non siate 
voi a cambiarli. 

Vediamo ora un’altra particolarità del 

programma. 

Scegliete Topzione 5 (fine lavoro). 
Usciti dal programma, date di nuovo il 
RUN ; in questo modo abbiamo cancella- 
to i precedenti valori delle barre. 

Partito il programma, scegliete l'op- 


zione 1. Di seguito mettete 3 colori a 
vostra scelta e date valore 90 alla prima 
barra e 180 alla 30a. Tornate al menu e 
fatevi visualizzare il grafico. 

Come potete notare, le due barre sorto 
separate tra loro da alcuni punti colorati, 
per Pesati ezza 28, Ricordatevi anche del- 
la distanza fra le due barre. Infatti, tra- 
mite l’opzione I o 3, provate ad aggiun- 
gere delle barre in mezzo alla la e alla 
30a, ad esempio -98 alla 15a e 360 alla 
20a, e fatevi visualizzare il grafico. La 
distanza tra la la e la 30a barra è cambia- 
ta Avrete quindi capito che il grafico sì 
allarga e si restringe a seconda del nume- 
ro delle barre (max 30). Ciò per facilitare 
la lettura. 

L’opzione 4 

L’opzione 4 si occupa di stampare il 
grafico su carta. Come certamente sape- 
te, non è possibile stampare la pagina 
grafica in modo diretto, ma bisogna ri- 
correre a una routine in L.M, Per questo 
motivo chi avrà intenzione di usare l’op- 
zione quattro e possiede la stampante 
MPS 802 dovrà copiarsi la routine 
"HARD COPY DELLA PAGINA 
GRAFICA” di D. Toma, pubblicata sul 
N,17 di C.C.C. a partire dalla linea 3000 
in poi. 

Non arrabbiatevi!!! La routine non è 
poi cosi lunga! 

F anzkm amento 

Vediamo ora il funzionamento del 
programma. 

Premetto che la mia non sarà una spie- 
gazione capillare di tutto il programma; 
cercherò di illustrare alcune parti chiave 
ne! modo più chiaro possibile. 

Raccolti tutti i dati tramite l'opzione 1 
oppure 3, vediamo cosa succede se chie- 
diamo di visualizzare il grafico. 

In primo luogo i dati vengono impo- 
stati in modo assoluto. Questo lavoro 
viene fatto da un Loop che legge i vari 
valori dalla linea 230 alla 280. Se il valore 
letto è negativo, il programma imposta la 
variabile MD(Z) a 3. Vedremo più tardi 
a che cosa serve questa variabile . 

A questo punto i dati così Impostati 


Vendite 1984 

Gennaio 1350 
Febbraio 450 
Marzo 450 
Aprile -810 
Maggio 540 
Giugno 1080 
Luglio -1710 
Agosto 1530 
Settembre 90 
Ottobre 845 
Novembre 990 
Dicembre 143 


Figuro / 



Figura 2 

vengono riletti per stabilire qual è il valo- 
re più grande tra loro (linee 290-390). 
Trovato il valore massimo, viene impo- 
stata una costante alla linea 400; 
K=(FS?90). 

Ciò equivale a: “kappa uguale al valo- 
re massimo diviso perii numero massimo 
di punti disponibili”. 

In realtà i punti a disposizione nella 
pagina grafica sono molti di più. Ma, 
avendo diviso lo schermo in due parti 
(positivo e negativo) e avendo bisogno di 
altri punti per dare ['effetto tridimensio- 
nale, il numero di punti a disposizione è 
notevolmente diminuito. 

A questo punto tutti i valori delle bar- 
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DUPLICATORE PROGRAMMI 



Utile accessorio per tare copio tramile m regislralorc commo- 
doro e un registratore rr-armale csi n 3slri protetti o con canea' 
mento turbo 


Art- CD 1p? 


L. 30 


KIT ALLINEAMENTO TESTINE 



Strumento inerspensebile per la perfetta r&poiazipiìe dell AZI- 
MUT nei registratori comm-odoie 0 wmparibili 


Art CD 105 


L 47.000 


BATTERIA TAMPONE ANTI BLAK-OUT 



Consente il rr-ar lenimento dei dal ;rr memoria oc:- computer «n 
assenza di corrente elettri ca pe T circa 30 minuti (da ambir e re ?. 
alimentatore Ad. CD iGCì Fornitile amene senza batterie 
Art CD fi 71 


Art. CD 107 


L. 85 000 


ACCESSORI 
PER COMPUTER 
COMMODORE 

COPIATORE PROGRAMMI 



In dispensasi ù accessorio per laro una copia ira mite due rnci ■ 
giratari commetto re. nastri protetti o cor canea monto turbo 


Art. CD 103 


L 30. 



S.ft.L 


ELETTRONICA 

Via Don Pasquino Borghi* 1 3 
42017 NOVELLALA (Reggio E.} 


INTERFACCIA RICEZIONE RADIO 



tndispensaWe per registrare su registratore commodoro i pro- 
grammi speciali per computer trasmessi dalle eminenti rado 


Art. CO 104 


L. 30 


ALIMENTATORE 


Contenitore batteri a lament- 
anti BLAK-OUT 

Art. CD 1*7 

L. 

25.000 

Interfaccia registratore 

Ad C010Ì 

L 

ao.aoc 

Commutatore TV 
anlennatoompjter 

Ar1.CDlO0 

L. 

9.500 

TastoRESET perVICKeC 64 

Ad CD 109 

L. 

5.500 

Cavo per TV con ingresso 
monitor 

An CD 1 10 

L. 

10.000 

Coprile stie'a in plesigla S 

Art. CD 7S0 

L. 

t&.OOO 

CcprUastiera m stoffe 

Ari. CD 755 

L. 

10,500 

Borsa oer trasporto C 64 
eREGtSTR 

Art. CD 760 

L. 

29.000 

vaschetta per gO floppy D. 
con chiave 

Art. CD 780 

L. 

45.000 

vaschettaperio floppy D 
can chiave 

Art CD 770 

L. 

35.000 

Tavola grafica SUPER SKETCH 
oar C 64 

Art CO 790 

L. 

240.000 

CtìrM Q dischetti ODF1F2D 

Art. CD 700 

L. 

45.000 

Gonr 1 0 dischetti K E V-OATA 

F2D 

Art CO 710 

L r 

«LOCO 

Coni. 10 d-sehetti COLORATI 
1F1D 

Art. CD 730 

L. 

45.000 

Cord 10 dischetti 

mob&v -floppy i f i d 

Ad. CD 720 

L 

20.500 



Unr. e di alimentai ione per C 64 eVIC 20 completo di nierruttore 
con nitro di rate e soppressore d- picchiconito i disturbi elettrici 
PrediStPOSto per batterie rampane anti BLAK-OUT (Art CD 107) 


Art- CO i 


■ 


L. 87 


TUTTI I PREZZI SONO COMPRENSIVI DI IVA 
NON SI ACCETTANO ORDINI INFERIORI A L 30.000 
CONTRIBUTO RSSO SPESE DI SPEDIZIONE L 5.000 

— - - — — - - — - - ~ - — 


BUS A QUATTRO SLOT PER VIC 20 



Amplia la prositjilna delia porta di espansione imo a 4 ingress 
-.e lem a nato- li di cui uno nditizzabile nei a rea d memoria ROM 
completo d tasto RESET 


Art CD-I 


m 


L. 55.000 


BUONO DI ORDINAZIONE 

NOMt ■ cognomi; 


VOGLIATE INVIARMI IN CONTRASSEGNO 


INDIRIZZO 

1 





1 W ' . | 

CJK P 


CITTA 



PROVINCIA 



] i 


J 

\ i 


N. 

Art, 

L. 

N. 

Art. 

L. 

N, 

Art 

L 

SPESE SPEDIZIONE 

L 5.000 

PAGHERÒ AL POSTINO 

L 


COMPUTER SERVICE VIA A. MANZONI, 49 - 42017 NOVELLARA (RE) - TEL. (0522) 661647 
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U UTILE 



re vengono divisi per questa costante 
(410-450) mettendo te barre in scala. It 
nuovo valore delle barre viene deposita- 
to nella variabile D(Z). 

Spiegati tutti i preliminari, passiamo 
alla visualizzazione vera e propria. 

Le linee da 460 a 516 si occupano di 
andare in alta risoluzione e di stampare 
gli assi. 

Alla linea 530 viene impostata la varia- 


bile R a -125. Questa variabile indica il 
punto iniziale deila barra o istogramma. 
Nella linea seguente viene impostata 
ima variabile molto importante per Te- 
strazione dei colori. 

La parte che stampa gli istogrammi è 
formata da un doppio Loop: il primo, si 
occupa delle trenta barre (550-670), il 
secondo di stampare V istogramma preso 
in considerazione in quel momento dal 
primo Loop (580-640). 

Per prima cosa, nella linea 560 viene 
estratto il colore della barra. Se il nume- 
ro estratto è uguale al precedente, conte- 
nuto in B, oppure È uguale a zero viene 
riestratto. In caso contrario R assume il 
valore del colore appena estratto, che 
poi viene impostato. 

Ora Taltro ciclo stampa 5 linee una 
attaccata all'altra. Infatti, Tistogramma 
non è altroché una serie di linee verticali 
vicine tra loro. 

Vediamo in particolare come funziona 
questo piccolo Loop. 

Alla linea 590 viene trasferita fa varia- 
bile D(Z) nella variabile D. 


Alla 600 toma utile la variabile 
MD(Z). Se è uguale a tre, D è uguale a 
-D. 

La linea seguente stampa una linea di 
altezza D . 

Alla linea 620 viene controllato il valo- 
re di D. Se è uguale a 0, allora salta alla 
linea 660 che aggiorna R, Quest'ultìma 
fa stampare quei puntini di cut parlavo in 
precedenza. In caso contrario viene 
stampata la linea che dà l'effetto 
tridimensionale. 

Finito il piccolo Loop viene chiuso 
l’ultimo lato del parallelepipedo. 

Di seguito viene aggiornata R, poi ri- 
parte il grande Loop,,, e da capo viene 
estratto il colore, stampate le cinque lì- 
nee, ecc. 

E poi.,. 

Molti sono i miglioramenti che si pos- 
sono apportare al programma. 

Ad esempio si potrebbero aggiungere 
4 nuovi comandi presentati da D. Toma 
sul N, 17 di Commodore Computer Club, 

Oppure... pensateci voi!! 


S6 REM IST0GRAW4I 30 

SS REM SOLO PER COMMODORE 64 

SS fi 

30 REM DI MASSIMO PQLLUTRI 

35 : 

40 REM E 1 NECESSARIO DAPPRIMA 
70 REM CARICARE LE ROUTINE 
80 REM GRAFICHE DJ 0* TOMA 
90 REM PUBBLICATE SUL N. 14 
S4 REM DI COMMODORE COMPUTER C. 

99 i 

100 CLR : 0 IM C (30 ) ,D ( 30 > ,MB (30 ) - PO 
KE 53£S0,0;POKE 5388 1,0: GOTO 2 
000 

110 PRINT" CCLEAR UBI ANCO HRVS) IST 
QGRAMMI 

[DONNI 11 

115 REM *** STAMPA CAMPIONI DEI C 
GLORI DISPONIBILI *** 

1£0 AÌ$=CHR$(32) iA$=CHR$<I8)+Al$+A 
I * +A 1 $+CHR* U 46 > +A 1 $ +CHRS < 30 ) t 
R*=CHR$< 13) 

130 PR INTA 1 $ i CHRS* C 5 > ASA 1 S2CHRS < 28 ) 
ASA1*3CHR$< Ì53)A*RS 
140 PR I NTA 1 S4CHR $ C 1 56 >ASA 1 S5CHRS C 3 


0)A$A1*6CHR$<31 >A*R* 

150 PRINTA1$7CHR*(158>A*A1*8CHR*< l 
£3)A*A1*9CHR*U49)A*R* 

160 PRIhTri0CHR*< 150 >A*1 1 CHR*< 151 )A 
*12CHR*< 152 ) A$R$ 

170 PRIMT13CHR*( 153 >A*14CHR*< 154JA 
*15CHR*< 155>A*R$ 

180 REM ** RICHIESTA DEI COLORI P 
ER LE BARRE ** 

190 FOR L= 1 T0 3 

200 PRINT" [HOME H 13 DOWNICOLQRI (M 
AX:3) “ 

£10 INPUT "IUP3I15 R IGHT3 " ; CO <L ) s 
IF CO (L > < 1 OR CO (L > > 15 THEN 21 
0 

£20 f-CXTs GOSUB 1010: GOTO 2000 
230 REM ** IMPOSTAZ IONE ASSOLUTA 
*# 

240 PRINT" [OLEARI t3 DQ14NJ [RVS ] ATTE 
NDERE* :F0R Z=1 T0 30 
250 IF C(Z>>0 THEN MCKZ ) = 1 : D <Z >=C < 
Z ) :G0T0 280 
£60 D (Z ) = < ABS (C<Z ) ) ) 

270 MD(Z>*3 
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£80 NEKT 

£90 REM ** RICERCA DEL VALORE MAS 
S IMO ** 

300 F S = 0 

310 FOR Z = 1 TO 30 

3£0 IF D (Z ) >FS FHEN FS-D (2 > 

330 NEXT 

390 REM ** DETERMINAZIONE DELLA C 
OSTANTE ** 

400 K = <FS/90 > 

410 REM ** DETERMINAZIONE DEI VAL 
ORI IN SCALA ** 

4£0 FOR 7 = 1 IO 30 
430 D <2 > - 1 NT C D < Z >/ K) 

450 NEXT 

480 REM ** ROUTIISE DI STAMPA ** 

470 i-CLEAR s H4GRAF0 ,CQ C 1 > ,CO <2 > /CO ( 

3 > 

480 ^COL OR 1 

490 +-DRAU1- 130,-100,0, -130, 100,0 
500 ^DRAW- 130, 0,0, 180 ,0,0 
510 <"C1RCLE-Ì40,0,0,5,5 
5 1 £ HDRAW-148, -80, 0,-137, -80,0 
514 HDRAIaH 1 40,80 ,0,-147 ,80,0 
516 HDRAW-’ 143 ,85 ,0 , 143 ,75 ,0 
5£0 REM ** STAMPA DELLE BARRE COL 
LOOP DOPPIO ** 

530 R-~I£5 
540 G=0 

550 FOR 2=1 TO 30 

568 A=(INT<RND<0>*4)>! IF A=B OR A= 
0 THEN GOTO 560: REM ESTRAE CO 
LORE BARRA 
570 B = A : 4-COL OR B 
560 FOR UJ=0 TO 5 
530 D =□ <Z > 

600 IF MD <2 ) = 3 THEN D = -D 
610 HDR ALIR *W , 0 , 0 , R +W , D , 0 
680 IF D=0 THEN GOTO 660 
630 H3RAWR+LLD ,0 ,R+UI+5 ,0+5,0 
640 NEXTW 

650 +’DRAMR+y+5,D+5,0,R + W+5,0,0 
660 R=RH4+3 
670 NEXTZ 

360 GET A$s IF A$= " 11 THEN 900 
910 ^TEXT8,5 
3£0 GOTO 8000 

930 REM ** RICHIESTA VALORE DELLE 
BARRE ** 

1010 INPUT "IHOrCHiG DOUJN INUMERÒ B 
ARRA ( M=MENU >"£21$ 

1015 IF 2i*=*M“ THEN RETURN 


10£0 Z i=VflL(Z 1*) s IF ZU1 OR Z 1 >30 
THEN PRINT” [UFI*; :GOTO 4010 
1030 INPUT "VALORE BARRA "tZ 
1040 C CZ 1 >=Z ! GOTO 1010 
1330 REM *** MENU' DI LAVORO *** 
2000 PR INT" CCLEARHB j ANCO] IRVS 1MENU 
1 DI LAVORO 

31 

£010 PR INT 11 [£ DONNI [3 RIGATI 1 IMM1S 
IONE DAT I w 

£0£0 PRINT" C3 DONNI [3 RIGHTI8 VISUA 
L 122 AZ IOLE ISTOGRAMMI " 

£030 PRINT" [£ DONNI [3 RIGATI 3 CORRE 
ZJONE DATI* 

£035 PRINT" t£ DOWN] 13 RIGHI 14 STAMP 
A SU CARTA" 

£033 PRINT" E£ DONNI 1 7 RIGHI 15 FINE 
LAVORO" 

£040 GET B$:1F B*= “ " THEN £040 
£050 N=VAL CBS) « ON NGOTO 110,£30,£10 
0,3000,2160 
£060 GOTO £040 

£070 REM *** CORREZIONE DATI ***** 
*** 

£100 PR1NTCHR* <147)5 FOR 2 =£ TO 38 S 
TEP £ 

8110 PR INTABARRA "Z - 1;C<Z-1) , "BARRA " 

z;ccz> 

£120 NEXT 

£130 INPUT * E DOWN] INSERIRE NUMERO 
BARRA DA CAMBIARE 11 ;Z 
£140 INPUT -EDOWN) INSERIRE NUOVO V 
ALORE DELLA BARRA 1 ' JC<Z) 

£145 INPUT “ CDÓWN3ALTR 1 DATI DA CO 
RREGERE C 3/N > " ì G* s I F G$= " S " TH 
EN GOTO 8070 
2150 GOTO £30 

£155 REM **** FINE LAVORO ***** 
£160 PRÌNTHCLEARHD0MNH3 RIGHI JC 
I A 0 \ \ \ "s END 

£998 REM *** ROUTINE STAMPA SU CAR 
TA *** 

3000 PRINT" [CLEAR 3 E 3 DOUNJSE VUOI S 
TAMPARE GLI ISTOGRAMMI, DEVI* 
3100 PRINT "COPI ARE LA ROUTINE “HARD 
COPY' DI TOMA* 

3150 PRINT "PUBBLI CAIE SUL N. 17 DI C 
„ C . C . " 

3 158 PRINT" C2 DQUN1 < PREMI UN TASTO 
PER CONTINUARE)" 

3153 GET AASUF AA$= " * THE 14 3153 
3£50 GOTO £000 
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MusicaAutomatica 

di Antonio Visconti 


A 

^ leu ni mesi fa, curiosando tra gli scaf- 
fali di una Libreria, mi imbattei in un libro 
che colpì subito la mìa attenzione. Si 
trattava di ""Musica al calcolatore” di 
Rudolf ChajizQVìc Zaripov - Editore 
Franco Muzzio & C 

L’autore è professore dì cibernetica al- 
l’università di Mosca. Si interessa, ovvia- 
mente, di intelligenza artificiale ed in 
particolare della composizione musicale 
da parte degli elaboratori elettronici 
Qualcuno polemicamente potrebbe 
obiettare che il suo sforzo è vano. La 
musica sorge nella coscienza del compo- 
sitore come un impelo di ispirazione, un 
atto creativo unico Una macchina elet- 
tronica non puri riprodurre questi stati 
d’animo. Aggiungiamo inoltre che i pro- 
cessi intuitivi, come la creazione artisti- 
ca, sono difficili da comprendere chiara- 
mente. Nessuno sa spiegare perchè nasce 
una "'buona idea”. 

Nonostante questo la moderna ricerca 
è in grado di rilevare in tali processi delle 
strutture descrivibili matematicamente, 
E’ interessante ricordare che questo tipo 
di ricerca investe, oltre la musica, anche 
altri campi. 

Si studiano e sono anche stati realizzati 
programmi per la composizione di poesie 
e per La dimostrazione automatica di reo- 


II calcolatore esegue 
musiche composte 
da . . . se stesso 



remi. Le problematiche relative a queste 
indagini sono molto complesse. L’attivi- 
tà creativa non è precisamente definibi- 
le; non sì può far altro che formulare 
ipotesi, congetture, La cui validità può 
trovare conferma solo simulandone le 
conseguenze al calcolatore. Questo è dò 
che fanno i cibemetid. 

La chiave, per entrare in questa ottica, 
è il modello matematico. 

La simulazione consiste nel cercare di 
comprendere la Logica di un certo proces- 
so e nell "approssimare il suo funziona- 
mento con un insieme dì regole che ten- 
gano conto delle caratteristiche del pro- 
cesso stesso. In tal modo sì perviene ad 
una descrizione matematica che può es- 
sere implementata al calcolatore 
elettronico. 

D problema musica 

La musica si presta ad essere "model- 
lata” meglio di altre attività umane. In- 
fatti, già prima delFavvento dei compu- 
ter, ì professori di musica avevano creato 
una teoria musicale e la macchina elet- 
tronica ha permesso di verificare le loro 
congetture. E’ importante tener presen- 
te che la teoria musicate non ha mai pre- 
teso sostituire i compositori. Analoga- 
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mente la composizione automatica non 
si mette in concorrenza con essi. Si af- 
fianca al compositore ed aiuta a capire ed 
a schematizzare meccanismi che altri- 
menti restano oscuri, 

I primi tentativi di composizione auto- 
matica sono stati fatti da grandi autori 
del passato come Haydn, Handel, Mo- 
zart. Quest'ultimo si divertiva a prepara- 
re tabelle con sequenze di note predefini- 
te e, tramite il landò dì un dado, le com- 
binava casualmente,, ottenendone 
melodie. 

Un altro metodo molto divertente, ri- 
portato da Zaripov nel suo libro citato, 
apparve nel 1751 iti un opuscolo dal tito- 
lo: “Un metodo nuovo per comporre 
musica utile ai talenti decaduti”. Consi- 
steva neirìntìngere nel calamaio uno 
spazzolino da denti e nel passare un dito 
sulla setola, spruzzando Tìnchiostro sulle 
pagine musicali. Successivamente si ar- 
rotondavano le note e si aggiungevano le 
sbarre, tenendo conto del ritmo suggeri- 
to da un mazzo di carte. E 5 chiaro che 
una composizione di questo tipo è senza 
dubbio definìbile in molti modi, ma non 
con la parola musica. 

Il professor Zaripov è ovviamente più 
scientifico. Innanzitutto ha fatto delle 
analisi statistiche sulle composizioni di 
molteplici autori. Ha tratto degli schemi, 
costruito modelli, li ha verificati al calco- 
latore, li ha modificati, li ha ri verificati e 
così via. Sono ventanni che si occupa dì 
questo argomento, (anche se non esclu- 
sivamente), Nel libro descrive dettaglia- 
mcntc un algoritmo di composizione, 
frutto del suo lavoro. 

Dalia teoria alla pratica 

Mi sono permesso di semplificare 
qualcosa con lo scopo di ottenere un pro- 
gramma per il 064, 

Descriverò il mio lavoro rimandando 
al testo precedentemente citato chi vo- 
lesse approfondine l'argomento. Innazi- 
tutto è necessario dare alcune definizio- 
ni, per meglio intenderci. 

Diciamo battuta un intervallo tempo- 
rale di riferimento. 

Definiamo valore di una nota la sua 
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smo casuale con la desiderata distribuì 


durata espressa in frazioni di battuta. 

La nota di valore più breve presa in 
considerazione è la croma t che vale 1/8 di 
battuta, Assoceremo a questa il numero 
L Abbiamo poi la setnimimma di valore 
2/8, cui associamo il numero 2. Infine c'è 
la minima di valore 4/8, cui associamo il 
numero 4. 

Useremo solo le note ottenibili dai ta- 
sti bianchì del pianoforte. Al do più a 
sinistra associamo il numero 0 ed incre- 
mentiamo di 1 muovendoci verso destra, 
do=T>; re=l; mi— 2 etc„. 

Arrivati a 7 si passa al do dell’ottava 
successiva, cui associamo il numero 8 e 
cosi via. 

L'altezza di una nota viene individuata 
dalla formula; 

(altezza) = (nome) + 7* (ottava) 

Una nota nella battuta viene indivi- 
duata completamente da una coppia or- 
dinata di numeri, come mostrato in fig.l 

Il primo passo per la costruzione della 
melodia t la determinazione del ritmo, 
cioè della durata di tutte le note costi- 
tuenti la composizione. 

Nella fsg 2 troviamo il diretto ri feri- 
mento numerico, abbinato alle note, che 
sfrutteremo nelle formule delle prossime 
figure. 

In fi g 3 sono riportate le 7 combinazio- 
ni base di durata che vengono utilizzate 
dal programma. 

Definiamo gruppo ritmico R l 1 insieme 
di alcune di queste combinazioni con 
rindteazione delle loro frequenze. In fig 
3 sono anche riportati i 7 gruppi ritmici 
utilizzati (numerati da fi a 6). 

Se per esempio in una battuta si fissa il 
gruppo ritmico R2, essa verrà composta 
con semiminima (valore 2) e minime (va- 
lore 4) con uguale probabilità, 

A questo punto è il caso di aprire una 
piccola parentesi per illustrare il metodo 
da seguire per simulare meccanismi ca- 
suali con prefissate distribuzioni di 
probabilità. 

La funzione RND 

Il Basic con la funzione RND restitui- 
sce un numero decimale casuale compre- 
so tra Oed 1. 


Sujppontamo di volere assegnare tre 
probabilità differenti a tre eventi diversi. 
Per fissare le idee, si pensi ai simboli del 
totocalcio 1,31,2. 

L'esperienza insegna che il simbolo 
più probabile è x, il meno probabile è 2, 
Si voglia ora compilare una colonna in 
cui “1" abbia una probabilità de! 40% di 
comparire, “X” dd 50% e "2” del 10%. 

Per fare ciò, cì si riferisca alla fig 4, 

Si divìde ^intervallo 0-1 in 3 parti di 
lunghezza rispettivamente 0.4, 0.5, 0.1 
mediante i punti di suddivisione 0; 0,4; 
(0 4+0.5); L 

Estraendo un numero casuale tra 0 ed 
1, con la funzione RND, potremo deci- 
dere per Tuscita del simbolo 1, X, 2 a 
seconda delTìntervalJo di appartenenza 
dei numero estratto. 

Abbiamo quindi simulato un meccani- 


zione di probabilità. 

Il diagramma di flusso è riportato in fig 
5. 

Torniamo al nostro programma. Esso 
calcola 16 insiemi di 8 battute. Per ogni 
insieme è possìbile selezionare in input il 
gruppo ritmico con cui quell’ insieme de- 
ve essere realizzato. 

All'inizio il programma mostra una se- 
quenza di 16 numeri. Ogni numero corri- 
sponde ad uno dei diversi gruppi ritmici 
mostrati in fig 3. Un numero maggiore di 
7 comporta una scelta casuale da parte 
del computer. 

La parte melodica della composizione 
viene realizzata come segue: inizi a [men- 
te viene estratta casualmente una nota 
che non verril suonata, il cui scopo è 
fungere da nota di partenza. 11 passaggio 
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dall'altezza di una nota alla successiva 
viene fatto estraendo (soddisfacendo 
certe restrizioni) il salto da effettuare. 
Bisogna cioè stabilire di quanti tasti spo- 
starsi verso destra o sinistra. Sono vietati 
salti superiori ad una ottava. 

Come nel caso del ritmo, definiamo 
gruppo melodico T insieme di alcune lun- 
ghezze di salto tra note successive con 
r indicazione delle loro frequenze. 

In fìg 6 sono riportati i 4 gruppi melo- 
dici utilizzati. La scelta del salto viene 
fatta in due passi. Prima si seleziona il 
valore assoluto e successivamente il se- 
gno (cioè se verso destra oppure verso 
sinistra). 

Ad esempio, se si seleziona il gruppo 
melodico 3, si può rimanere sulla stessa 
nota, oppure effettuare un salto di 3, 5 
oppure 7 note, ognuna con una probabi- 
lità del 25%. 

Infine definiamo struttura melodica 
del periodo musicale di otto battute una 
successione di 8 numeri: SM = mi, 
m2,,.,m8. In essa ogni numero si riferi- 
sce ad una battuta e numeri uguali indi- 
cano ripetizione della linea melodica, 
cioè ripetizione degli intervalli tra note 
successive. Nel programma vengono 
usate te 6 strutture melodiche di fig 7. 

Ad esempio, SM4 = 11223311 indica 
che devono essere composte tre diverse 
configuzioni melodiche (cioè successioni 
di salti di una certa lunghezza), una delle 
quali va applicata alla prima, seconda, 
settima ed ottava battuta, un’altra alla 
terza ed alla quarta e un’altra ancora alla 
quinta e sesta battuta. 

Va osservato che due battute che ripe- 
tono la stessa linea melodica, anche se 
hanno lo stesso ritmo, non necessaria- 
mente ripetono le stesse note. 

La linea melodica vincola saltando gli 
intervalli (ampiezza e segno) tra due no- 
te successive; dunque, partendo da una 
nota diversa, si ottiene un motivo * bra- 
siate" verso destra o verse sinistra sulla 
tastiera del pianoforte. 

La scelta della struttura viene fatta ca- 
sualmente alle linee 474-475 e rimane la 
stessa per tutte le battute della composi- 
zione. Quindi, per ogm insieme dì otto 
battute, vengono selezionati da 3 a 5 



gruppi melodici differenti. 

Le lìnee 560-590 svolgono quest’ulti- 
mo compito. 

Non ho previsto Timpostazione da ta- 
stiera di questi parametri perchè, a pare- 
re mio, avrebbe appesantito troppo l’in- 
put. Questo non impedisce però, la pos- 
sibilità di effettuare esperimenti, inter- 
venendo direttamente sulle linee prece- 
dentemente indicate. 

Ho già detto in precedenza che devo- 
no essere soddisfatte alcune condizioni. 
Sono vietati due salti che in totale superi- 
no un’ottava. Sono anche impediti più di 
4 salti nella stessa direzione. Il controllo 
viene effettuato dal sottoprogramma che 
va dalla linea 3000 alla 3030. 

Ora possiamo ricapitolare il lutto. 

1/ Il programma inizialmente costruisce 
il ritmo della composizione secondo ìe 
indicazioni date in ingresso; 

2} decìde quale struttura melodica 
utilizzare; 

3 j seleziona un certo numero dì gruppi 
melodici; 

4/ determina le note dela melodia. 

Il numero di note costituenti la melo- 
dia è, ovviamente, dipendente dal ritmo. 
Nel caso sìa formato da tutte crome (va- 
lore 1/8), vengono calcolate 1024 note. Il 
tempo per realizzare una composizione, 
supera raramente i 3 minuti. 

L’algoritmo completo proposto da Za- 
ripov è più complesso di questa mìa ver- 
sione; nonostante tutto, i risultati hanno 
sorpreso anche me. 

L’esecuzione del programma. 

Ultimata la fase di composizione il 


programma passa a quella di esecuzione. 

Vi verranno chiesti ì valori dell T A-D- 
S-R, della forma d’onda e il tempo (inte- 
so come velocità di esecuzione. 

E f importante notare che molto spesso 
una melodia cambia completamente 
aspetto a seconda di come viene suonata. 
Quindi non scartate, frettolosamente, 
melodie che al primo ascolto non trovate 
particolarmente gradevoli. Una modifi- 
ca nella velocità, oppure nelPA-D-S-R 
possono dare risultati sorprendenti. 

Ho incluso dei sottoprogrammi per il 
salvataggio ed il caricamento delle melo- 
die composte (sia per il nastro che per il 
disco). 

Per utilizzarli basta rispondere alle do- 
mande che il programma vi farà al 
riguardo. 

Infine due parole sul funzionamento 
dd sottoprogramma esecutore. Le note 
da suonare sono rappresentate da due 
numeri indicanti l’altezza cd il valore, 
memorizzate nella matrice VM(I,J) É 
VM(I f l) contiene il valore e VM(I.2) 
l’altezza della I- esìma nota della 
composizione. 

Il programma per suonare questa nota 
imposta rapportano valore di frequenza 
(secondo il contenuto di VM(I,2), attiva 
il SID e lo mantiene attivato per un tem- 
po proporzionale ài valore contenuto in 
VM(I,1); poi passa alla nota successiva. 

Gli opportuni valori di frequenza sono 
contenuti nella matrice P(I,J) costruita 
dal programma stesso. 

Per quanto riguarda la digitazione del 
programma vi avverto che gli unici carat- 
teri grafici presenti si ottengono con i 
tasti del cursore. 
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10 

REM 

MUS . fs . 

1 i 

REM 

COMPOSITORE AUTOMATICO 

20 

30 

REM 

■■ 

« 

PER COMMODORE 64 

46 

50 

REM 

» 

p 

DI ANTONIO VISCONTI 

200 DIM P (80 ) , VM( 2048 ,£) ,M(8 , 
(8,5) 


£10 PRINT" [CLEAR H3 D0WN3VU0I CARI 
CARE UNA VECCHIA ELODIA ?" 

220 GET Q$: IF (Q*0"S'' ) AND (Q$< > * 
N" ) THEN 220 

230 IF Q*=*S" THEN GOSUB 5200 !GOT 
0 630 

460 INPUT “ ICLEAR ] £5 DOWN1GRUPPO R 
ITMICO 0123456666666666118 L 
EFT1 " ì SR$ 

465 PR I NT “ t CLEAR 3 [ 2 DOLN1ASPETTA U 
N PO*’ 

470 T I *= ‘000000 " : R=0 : S=0 : Ms|=0 

471 REM : 

472 REM SCELTA STRUTTURA MELODICA 

473 REM : 

474 XHX=Rtd ( 1 ) *6+ 1 

475 ON XXX GOSUB 4100,4200,4300, 
4400,4500,4600 

430 VM(0,1 )=INT(RNO< I >#33+1 >!REM * 
ESTRAZIONE NOTA DI PARTENZA 

435 REM : 

486 REM INIZIO CICLO DI CALCOLO 
437 REM : 

490 FOR K =0 TO !5iR=R+NN 
500 FOR L=0 TO 3 

504 REM l 

505 REM SCELTA GRUPPO RITMICO 

506 REM : 

510 XXX=VAL(M1D*(SR*,K+1 ,1) ) + l '• IF 
XXX >7 THEN XXX=RMJC 1)*7+1 
520 ON XXX GOSUB 1100,1200,1300, 
1400,1500,1600,1700 
530 ftXT L 

534 REM ! 

535 REM SCELTA GRUPPO MELODICO 

536 REM s 

560 FOR B= 1 TO TB 
570 XXX=RND( 1 >*4+1 
530 ON XXX GOSUB 2400,2500,2600, 
2700 . - - 

590 KEXT B ■ > v 

620 GOSUB 2 100: REM COSTRUISCE SP 


ART I TO 

625 NEXTK 

626 REM : 

627 REM PROGRAMMA ESECUTORE 
623 REM i 

630 FOR 1=0 TO 4:C=7*I JRESTORE 
640 FOR J=1 TO 7 
650 READ QlX-Q*2tI 

660 P (C+ J > = 1NT (X/256 ) s P <C+J +40 ) =X- 
P (C+J ) *256 
670 NEXT J,I 

675 R=R+W SPRINT SPRINT" 16 DONNI 

MIN ”MID*(TI$,4, U ’ SEC 11 M 
ID*(TI*,5,2) 

680 INPUT “12 DONNI ATTACK (0-15) 
... 1014 LEFTI“,*A 

I 6S0 INPUT "[DONNI DECAY (0-15)... 
313 LEFTI’IS 

700 S=SM6*A:POKE 54277, S 

710 INPUT "[DONNI SUSTAIN (0-15). 

. 0 14 LEFTJ") A 

720 II^FUT " [ DONN } RELESE (0-15).. 

. 9 [4 LEFTI“;S 
i 730 S=S+ 1 6*A s POKE 54278 ,S 
740 INPUT "(DONNI FORMA D'ONOA (1 
6-32-64)... 64C4 LEFTI'TN 

750 INPUT " [DONNI DUTY CICLE (SOL 
0 PER FORMA O'OMDA 32) (1 -409 

6)... 2000 [6 LEFT 3 " ; Y 
760 A=INT(Y/256) :S=Y-A*256 
770 POKE 54274, Si POKE 54275 , A 
780 INPUT "[Domi TEhPQ ... [5[4 
LEFT I " T 

785 PRINT” [2 DOWN! tRVSJPER INTERRO 
MPERE PREMI UN TASTO" 

790 FOR 1=0 TO 15: POKE 54296,1: NE 
XT I 

800 E=0 sFOR 1 = 1 TO R 
805 GET A*iIF A* THEN I =R 
810E=E-liIF E >0 THEN FOR J=0 
TO T: NEXT JiGOTO 810 
820 POKE 54276, (W AND 254) 

830 S=VM( 1,1) t E=VM( 1 ,2 ) + 1 
840 IF S=0 THEN 870 
850 Y=P(S > : Z =P (S+40) 

860 POKE 54272,2: POKE 54273, Y: POKE 
54276, (U OR 1) 

370 NEXT I 

875 POKE 54276, (W AMI 254) 

376 FOR 1=15 TO 0 STEP -liPOKE 5 
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4296,IiN=:XT I 

389 PR I NT " C CLEAR 1 13 DOUf-UVUO I SALV 
ARE QUESTA MELODIA ?" 

390 GET Q*i IF Q*<>"S" Am Q*<>"N 
” THEN 830 

300 IF Q$=''S" THEN GOSUB 5000 
310 PR INT" [OLEARI £3 QQUN1VUOI CERE 
ARE UNA NUOVA MELODIA ?■ 

920 GET Q*sIF QSK>'S' AND Q*<>"N 
" THEN 320 

330 IF Q*=“S" THEN 460 
340 GOTO 630 

1900 REM i 

1001 REM SETTORE SOTTOPROGRAMM 
I 

1002 REM : 

1100 J =0 

t 1 10 FOR 1 = 1 TO 4 
1 120 X=RND ( 1 > 

1130 IF X<0 . 5 THEN M< I +J ,LJ =2! GOTO 
1 170 

1140 M(I+J,L>=I 
1150 J=J + 1 
1160 MU+J,L> = 1 
1170 NEXT I 
1180 N<L) =4 +Ji RETURN 
1200 1 = 1 :X=RMK 1 > 

1210 IF X<0 . £5 THEN MCI ,L ) =4 s 1 = I + 1 
j iGOTO 1270 

1220 IF X<0 , 5 THEN M( I ,L > =2 : M< I + 1 , 
L > =2ì I = 1 +2 « GOTO 1270 
1230 MC 1 ,L)=£: 1=1+1 :X=RM3< 1 > 

1240 IF X >=0 , 5 THEN M< 1 ,L ) =2 : 1 = I + 1 
iGOTO 1270 

1250 IF X<0 . 25 THEN M( I ,L ) =4 :M( I + 1 
,L>=2: 1=1+1 :GOTO 1230 
1260 FOR J=0 TO 2sM<l+J,L)=2sFEXT J 
: 1=1+2: GOTO lag® 

1270 X=RND< 1 ) : IF X<0.25 THEN M(1,L 
) =4 iGOTO 1230 

1280 FOR J=0 TO 1 :M< !+J,L>=£ihEXT J 
, « 1 = 1+1 
1230 N(L)=I:RETURN 
1300 J=B 

1310 FOR 1=1 TO 2 

1320 X=RNC ( 1 ) s IF X<0.5 THEN M(I+J, 
L > =4 s GOTO 1340 

1330 M< I+J,L>=8! J=J+liM<I+J,L)=2 

1340 f-EXT I 

1350 N<L>=2+J: RETURN 

1400 J=1 


1410 FOR 1=1 TO È 
1420 X=RhCKl) 

1430 IF X<0,£5 THEN M< J ,L ) = 1 :M< J + 1 
,L >=2iM( J+2,L> = 1 : J=J+3:GOTO 14 
S0 

1440 IF X<0 . 5 THEN M< J ,L>=3!M<J+ 1 , 
L ) = 1 : J = J +2 : GOTO 1460 
1450 M(J,L>=£iM(J+l,L>=2:J=J+2 
1460 NEXT 1 
1470 N(L ) =J- 1 i RETURN 
1500 FOR 1=1 TO 4 STEP 2 
1510 X=RMK 1 > 

1520 IF X<0 . 5 THEN M( I ,L J =2:M( 1+1 , 
L) =2 iGOTO 1540 
1530 MI I,L)=3iM(Hl ,L) = 1 
1540 NEXT I 
1550 N(L) =4: RETURN 
1600 FOR 1=1 TO 6 STEP 3 
1610 M< 1 ,L>=2:M( 1+1 ,L)=1 :M< I+E,L)=Ì 
1620 NEXT I 
1630 N(L) =6: RETURN 
1700 FOR 1=1 TO 8 
1710 M< I ,L>=1 :NEXT I 
1720 N(L)=85RETURN 
2100 S=N(0>+N< 1 >+NC2>+N<3) 

2110 DEF FNFU ) = 1NT< I * .42 + .61 *N<0> + 
INT <!*.£!+. 6' *N< 1 ) + INT( I*. 14+ . 
6) *N(2 ) 


£120 

FOR 

T=0 

TO 

1 !C = S*T:|SI=4*T 


FOR 

1-0 

70 

3 * Y -FNF C I > 

£140 

FOR 

J=1 

TO 

NC I > 


2150 VM<C+Y+J+R,£>=M(J, I> IV=V(J „SM< 
N+I) ) 

2160 VMCC+Y+J+R, 1 )=V+VM<C+Y+J-1+R, l 
) 

2170 X=VM(C+Y+J+R , 1 > 

2130 IF (X<1) OR < X >35 ) THEN V=-Vi 
GOTO 2160 

2185 PR INT (C+Y+J +R > , 

2130 NEXT J, I ,T 

££00 W4=2*S : RETURN 

2400 FOR 1=1 TO 8 

2410 X=RND< 1 > : Y= SGN<RMD( 1 >-0.5) *N= 
N+Y:S*0 

2420 IF X<0.25 THEN V < I ,B ì =Y : GOTO 
2450 

2430 IF X<0,5 THEN V CI ,B ) =3*Ys GOTO 
2450 

2440 V < I ,B) =8*Y 

2450 GOSUB 3000: IF S THEN N=N-Y 
* GOTO 2410 

2460 *EXT I: RETURN 
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£500 FOR 1=1 TO 3 
2510 X=RM3< 1 > s Y= SGWRND (1 > ~0 . 5 ) S N= 
N+r:S=0 

£520 1F X<0.£5 THEN V< I ,B > =0: GOTO 
2550 

£530 1F X<0 . 5 THEN V ( I ,B > =2* Y : GOTO 
2550 

£540 V(],B)=Y 

£550 GOSUB 3000! IF S THEN N=N-Y 
SGOTO £510 
2560 NEXT I: RETURN 
2600 FOR 1=1 TO 8 
£610 X=RNDU>!Y= SGNiRND ( 1 >~0. 5 > :N= 
N+ Y! S-0 

2620 IF X < 0 . £5 THEN V(I ,B)=3*Y:G0T 
0 2650 

.2630 IF X < 0 . 5 THEN Y< I ,B>=5*Y:G0T0 
2650 

2640 V ( I ,B > = Y 

2650 GOSUB 3000: IF S THEN N=N-y 
sGOTO 2610 
2660 NEXT l: RETURN 
i 2700 FOR 1=1 TO 8 
2710 X=RM3( 1 > ; Y= SGNCRND ( 1 > -0 . 5 > :N= 
N+Y> 5=0 

2720 IF X <0 . 25 THEN VU,B)=0iGOTO 
£760 

; 2730 IF X<0 . 5 THEN VC I ,B>=3*Y!G0T0 
2760 

2740 IF X< 0 . 75 THEN V(I ,B>=5*Y:G0T 

0 £760 

2750 VU,B>=Y*7 

2760 GOSUB 3000: IF S THEN N=N~Y 
SGOTO 2710 
2770 NEXT I: RETURN 
3000 e=ABSCVU,B>+V(I-l,B>> 

3010 IF 08 THEN S=i 
3020 IF ABS(N>>4 THEN S=1 
3030 RETURN 

4100 SM{0 > = 1 s SM( 1 > = 1 iSM<2>= 1 : SM<3) = 

1 

4110 SM<4 > =2 s SMC 5 J=£sSM<6) =3 ! SM(? > ■ 

3 

4120 TB=3: RETURN 

4200 SM<0)= 1 i SM< 1 )-l SSM<2)=£SSM<3) = 

2 

4210 SM (4 >=3:SMC5)=3iSM<6J= 1 : SM<7) = 

1 

4220 TB=3: RETURN 

4300 SM< 0 ) * 1 « SM( n=2!SM<£) = I SSM<3> = 

2 

4310 SM(4) =3iSM(5>=3:SM<6>=3:SM<7) = i 


4 

4320 TB=4S RETURN 

4400 SM<0 ) = 1 : SM< 1 )=2:SM<2)=3sSM(3) = 

4 

4410 SM<4>=i:3M(5)=2!SM<6)=3:SM(7)= 

4 

4420 TB =4! RETURN 

4500 SM<0 ) =1SSM<1>=2: SM(2 ) =3 s SM<3 ) = 

4 

4510 SM(4 > =3 s SMC5 ) =5 SSM<6 > = 1 s SMC7 > = 
2 

4520 TB=5S RETURN 

4600 SM(0>=1 sSM( 1 >=2iSM<2>=3SSMl3>= 

4 

4610 SM (4 ) =5 S SM< 5 ) =5 s SM<6 > =3 s SM(7 ) = 

3 ' 

4620 TB=5: RETURN 

4900 REM SOTTQPRGGRAMMA DI REGÌSTR 
AZ IONE 

5000 PRINT" t£ DONNI DISCO 0 NASTRO 

? * 

5010 GET Q*slF Q*<>*D" AND Q*O h N 
“ THEN 5010 

5020 INPUT "12 DQWN3NQME MELODIA" ;N 

* 

5030 IF Q$= ”D " THEN 5100 
5040 OPEN 1,1, 1 ,N* 

5050 PRINT#! ,R: FOR 1=0 TO R SPR INT# 1 
_ , VM< I , 1 > : PR INT# 1 ,VMC 1,2): NEXT 

5060 CLOSE i: RETURN 
5180 OPEN S, 8, 3, "0! "+N*+" ,S,W" 

5110 PR INT#8 ,R : FOR 1=0 TO R:PRINT#3 
,VM< I ,1 ):PRINT#8,VMtI ,2) :XEXT 
5120 CLOSE 8: RETURN 
5150 REM SOTTOPROGRAMMA 01 LETTURA 
5200 PRINT" 12 D0WN3 DISCO 0 NASTRO 
? “ 

5210 GET Q$:IF Q*0‘D" AND Q$<>“N 
“ THEN 5210 

5220 INPUT "IH 001^3 NOME MELODIA" ?N 

* 

5230 IF 0$="D« THEN 5300 
5240 OPEN 1 ,1 ,0: INPUT# 1 ,R:FQR 1=0 T 
0 R: INPUT# 1 ,VMU ,1 ): INPUT#! ,VM 
<1 ,2): NEXT: CLOSE i 
5250 RETURN 

5300 OPEN 8,8,8, "0: " +N*+" ,S,R" 

5310 1NPUT#8 ,R : FOR 1=0 TO R:1NPUT#B 
,VM( 1,1 ): IFPUT#8,VM< I ,2): NEXT 
5320 CLOSE 8: RETURN 
6000 DATA 1072,1204,1351,1432,1607 
,1804,2025 
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COMMODORE 64 & VIC 20 


le Quattro 
Operazioni 


Il computer ci dà una 
mano a fare i conti a 
...mano. Ovvero: 
come truffare 
la maestra e 
vivere felici. 



D opti le tonsille, la varicella, il morbi)- 

10 e l T appendicite ecco che in arrivo le 
quattro operazioni. No, non si tratta di 
interventi chirurgici* anche se come que- 
sti ultimi possono dar luogo a 
complicazioni. 

Come avrete capito questo programma 
è rivolto proprio ai giovanissimi* cioè a 
tutti coloro che a scuola stanno muovendo 
ì primi passi nel mondo dei numeri* e che 
ancora non è concesso loro di adoperare 
le famigerate macchinette calcolatrici, 

11 programma 

Dato il RUN* verrà chiesta Foperazio- 
ne che si vuole faree i due numeri. 

Quindi il computer seguirà di pari pas- 
so il procedimento manuale per fare i 
calcoli. Ecco un paio di esempi di ciè che il 
computer visualizzerai 




Y/Sj&jj 

Divisione: 

. 


987654: 976=1011 


1165 

fj : 

1894 

Qffi 

: 


Moltiplicazione; 

9876 * 

123 = 

. ■; 




29628 

19752 


09876 



. 

.'V4''?nrT J 

■ 

1214748 

... ... 

_• ’V'M:.: . - ■ • ■ ' , v . 


uesto è quanto apparirà sul vostro 
schermo; naturalmente non vi verrà 
‘Sparato” tutto in un colpo ma* premen- 
do il tasto <RETURN>* verrà presenta- 
to cifra per cifra, compreso il riporto. Il 
programma accetterà solo numeri interi 
positivi* per non appesantirlo inutilmente 
con routines di controllo, quali la posizio- 
ne della virgola* il segno ecc, ece. 

Sempre per la stessa ragione, nella di- 
visione e nella somma totale della molti- 
plicazione non viene visualizzato il 
riporto. 


Al parte Eliso,., illegale che si può fare 
del Listato pubblicato (t trascrizione da 
video su quaderno di rio che lo studente 
dovrebbe fare per proprio conto)* il pro- 
gramma si rileva utile per verificare la 
propria preparazione nel risolvere sem- 
plici operazioni numeriche. 

Prima di premere il tasto RETURN* ad 
esempio, provate a calcolare “a mente” 
la cifra (ed il riporto) che 11 computer 
visualizzerà in seguito. 

Flavio Molinari 
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110 REM COMMODORE 64 , C-16 
115 REM VIC £0 & PLUS 4 
120 : 

130 REM LE 4 OPERAZIONI 
140 : 

150 REM BY FLAVIO MOLI NARI 
160 : 

200 CLR : DIM DN*(20) 

210 FOR Q= 1 TO 20!ON*(Q>="£HOME 
I "+DN»<Q-1 >+" IDOUM) *:NEXT 

220 SE$= " * 

300 PRINT CHR*(147); :REM *** SCEL 
TA **» 

310 PRINT" + SOMMARE ’ : PR I NT * - SOT 
TRARRE ‘ 

320 PRINT"* MOLTIPLICARE” SPRINT*! 

DIVIDERE" SPRINT 

330 PRINT CHR$( 18 > "CHE COSA VUOI F 
ARE ?* 

340 GET OP*S IF ORSO'' + ■ AND 0P$ 
<>■-■ AND OP$<>"*" AND QP$<> 
* s " THEN 340 

400 PR INTsREM *** IKFUT *** 

410 PR INT“PR IMO NUMERO " i GOSUB 500 
0!fl*=STR*<N) 

420 PR INT"SECONOQ MJlvERO “ s GOSUB 5 
000*B*=STR*(N) 

; 500 REM *** SCOMPOSIZIONE *** 

510 A=VAL(A*)S IA=LENCA*)-1 
520 B=VAL<B*)s IB=LEN(B*>-1 
530 FOR K = 1 TO 1 A : A <K ) =VAL <MI D$ 
CA*, IA-K+2, 1>) sNEXT 
540 FOR K = 1 TO IBsBOO =VAL (MIDi 
<B*,IB-K+2, 1 )) SKEXT 
600 PRINT CHR*< 147)1 iREM *** ALL I 
NEA NUMERI *** 

610 IF OP*=*s" THEN PRINT DN4(2 
)ft*“ : "B*"=" SGOTO 710 
620 PR1NT”RIP. = IRVSIPREMI <RETU 
RN> “ 


630 

PRINT QN*<2> 

TABU3-IAJA** "DP 


* 



640 

PRINT DNS<4) 

TAB< 13-IB)B* n =* 

650 

PRINT TAB<4)SE* 

700 

REM 

*** DIRUTO #** 

7i0 

IF 

OP$= " + " 

THEN 1010 

720 

IF 

OP*="-" 

THEN 1210 

730 

IF 

OP*=" *" 

THEN 1410 

740 

IF 

OP*=" : " 

THEN 1310 

1000 

REM 

*** ADD12IOÌC * * * 

1010 

R$=STR$(A+B> 


1020 

FOR 

K = 1 TO 

LEN(R#)-1 :RS-A<K 


)+B(K)+RP 

1030 R=RS- INT <RS/1 0 ) * 10 ! RP = (RS -R )/ 1 
0 

1040 PO = 13-K i DN=6 s GOSUB 5500 s GOSUB 
6000 : h£XT s GOTO 6100 
1200 REM *** SOTTRAZIONE *** 

1210 IF A<B THEN PRINT E2*!G0T0 
6100 

1220 FOR K = 1 TO I A : R=A (K > -B tK > 
1230 IF R >=0 THEN RP=0SGOTO 125 
0 

1240 R=R+10sRP= 1 i A (K+l )=A(K+ 1 )-I 
1250 PO= 13-K s DN=6 3 GOSUB 5500 s GOSUB 
6000 S KEXT: GOTO 6100 
1400 REM *** MOLTIPLICAZIONE *** 
1410 R$=STR*(A*B) s IR*LEN<R*)-1 
1420 IF IR >9 THEN PRINT El*:GOTO 
6 100 

1430 FOR H= 1 TO IBS FOR K=1 TO 
IA + 1 

1440 RS=B (H ) *A<K > +RP i R=RS - INT {RS/10 
) * 10 : RP* (RS-R>/10 

1450 PO = 14 -K-Hs DN=5+H ! GOSUB 5500SG 
OSUB 6000SNEXTSNEXT 
1490 PRINT CHR*(19) TAB<6>* " 

1500 PRINT DN*(DNM) TAB<4>SE* 

1520 FOR K= 1 TO IR : R (K ) =VAL (MID* 
(R*,IR-K+2, 1 ) > sNEXT 
1530 FOR K= 1 TO IR s GOSUB 5500 
1540 PRINT DN*(DN+£) TAB <1 3~K )R <K ) s 
NEXT : GOTO 6100 
1800 REM *** DIVISIONE *** 

1310 IF A<B THEN PRINT E2*:G0T0 
8100 

1320 SW=0:R=INT(A/B) :DN=2SP0=IA+ IB+ 
3 

1840 W=W+1 :NP*=MIDS<A3>,W+1 , 1 ) :Al$=A 
It+NP* 

1850 IF VAL (Al$) <B THEN 1900 
1360 RS = I NT ( VAL (A 1*)/B ) s SO =VAL <A 1 *) 
-RS*B s A 1 $=STRt <SO ) 

1870 DN=ON+l :PO=PO+ 1 : SU=1 : GOSUB 63 
00 

1880 IF NP*>< > " " THEN 1840 
1830 GOTO 6100 
1900 IF SW=0 THEN 1340 
1910 PD=PO+l sRS=0 : GOSUB 6300! IF N 
P$<>"" THEN 1840 
1820 GOTO 6100 

4990 REM *** CONTROLLO INPUT *** 
5000 E 1 $*CHR* 1 1 7 J + '' VALOR 1 TROPPO GR 
AND I ! " 
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5010 

50£0 

5030 

5040 

5050 

5490 

5560 

55E0 

5930 

6000 

8010 

6090 


E8*=CHR$U7) + "NGN SD FARE QPER 
AZIONI CON QUESTI MISERI" 

INPUT N 

IF NM0E8 THEN FRINÌ El$iG 
OTO 5080 

IF NOINT(N) OR N<0 THEN 
FRI NT ESSI GOTO 50£0 
RETURN 

REM *** ATTESA <RETURN> *** 
GET Q$MF Q$< >CHR$< 13) THEN 
5500 
RETURN 

REM *** STAFFA *** 
PRINTUHOME] " TAB<5)RF 
FRINÌ DN4KDN) JAB < PO >R : RETURN 
REM *** FINE *** 


6100 

6110 

61£0 

8130 

6£90 

6300 

6310 

S3£0 

6330 

6340 

6350 


FRI NT CHR*( 17) "VUOI CDNT USUARE 
? <S/N)" 

GET Q$U F Q*=*N" IHEN END 
ÌF Q$” " S " THEN £00 
GOTO 6110 

REM **¥ STAFFA DIVISIONE *** 
RS$»MID*<STRS<RB> 1 ) :PR-W"LE 
NCAJ*)4| 

G0SU6 55B0 SPRINT DN*<£) TAB <P 
0)RS$ 

GOSUB 5560: FRI NT DN*(ON> TAB < 
PR)A1* 

tsP*«MI'D*<A*,U+S, I > 

GOSUB 5500 SPRINT DN$<0N> TAB C 
PR+LENCAl*>)hP* 

RETURN 


franco muzzio editore 


Tom Rugg, Phil Feidmsn e Clarence S. Wilson 

32 programmi 
per il VIC 20 

I programmi riportati spaziano dai giochi alle 
applicazioni domestiche, dall'istruzione alla 
grafica, alta matematica Sono completamente 
documentati, illustrati e discussi, 
pagine 250. 16.000 tire 

Jerry Willis e Deborrah Willis 

Come usare 
il Commodore 64 

il lettore troverà nel libro non soia urta facile 
guida per imparare il Basic del Commodore 64. 
ma anche una fante completa di informazio- 
ni sufi 'installazione, gli accessori, gii user's 
group ed il software disponibile, 
pagine 128. 1B.0G0 lire 

Sten Krute 

Grafica e suoni 
con il Commodore 64 

Questo volume è una guida alle capacità grafi- 
che e sonore del Commodore 64 che porta il 
lettore dai primi rudimenti alla conoscenza del- 
le funzioni degli integrati VIC IE e SID e della 
loro programmazione, 
pagine 266. 22.000 lire 


Tom Rugg e Phil Fefdman 

32 programmi con ii Commodore 64 

Programmi da usare subito, per far funzionare 
utilmente il proprio calcolatore, ma anche 
programmi per imparare a programmare, 
pagine 244, 1 9.000 lire 

Carlo Sintini e Costernino Mustacchio 

A scuoia con il Commodore 64 

I programmi sono In Basic, e sono tra i pochi 
programmi originali, studiati e sentii in Italia e 
non tradotti . 
pagine 172, 17,000 tire 
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David Schiiltz 

Il libro 

del Commodore VIC 20 

Questo libro è per i possessori, i futuri posses- 
sori e gli utenti di un personal computer VIC 
Commodore, É inteso come supplemento al 
manuale della macchina, e presenta numerose 
caratteristiche del Vie. 
pagine 156. 12.000 lire 

Sergio Borsa ni 

Matematica e geometria 
con il Commodore 64 
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COMMODORE 64 C- 16 & PLUS-4 

Ludus 

Mathematicus 

di Antonio Ponturkri 


i 


D 


opo avere specificato quanto deside- 
riamo giocare e impostato il numero e ì 
nomi dei giocatori, compare il nome di chi 
deve cimentarsi nella prova. Appare 
quindi, per Soli 15 secondi, un La bellone 
che riporta 20 dire, dair I al 5. D giocato- 
re deve cercare di "fotografare” ed im- 
primere il quadro nella sua memoria, 
Scaduti i 15 secondi, scompaiono tutte le 
cifre e, al loro posto, restano I numeri che 
coni rassegna no ogni singola casella. 

Fatto questo, il computer visualizza un 
numero di partenza e un numerò di arri- 
vo: tramite tre operazioni, addizione, sot- 
trazione e moltiplicazione, dobbiamo agi- 
re sul numero di partenza, cercando di 
portarlo il più vicino possibìk ai numero 
di arrivo. 

Un esempio; abbiamo 38 e dobbiamo 
raggiungete 40. Premendo F3 , die corri- 
sponde alTaddizione (ci informa il com- 
puter di questo), resterà visualizzato un 
Ora dobbiamo dire sotto quale ca- 


Sappiamo eseguire 
mentalmente 
semplicissimi 
calcoli? Abbiamo un 
minimo di memoria 
fotografica? Questo 
giochetto darà le 
risposte a queste 
domande e ci farà 
divertire insieme ai 
nostri amici, perchè 
vi possono 
partecipare più 
persone. 



sella si nasconde U numero che vogliamo 
sommare a 38, cioè il 2. Premiamo le cifre 
che contrassegnano quella casella (che si 
scoprirà) e verrà poi eseguita l'operazio- 
ne tra il nostro numero e quello celato 
sotto la casella. 

Il giocatore deve fare cinque operazio- 
ni (obbligatoriamente), dopo di che il 
computer visualizza una possibile solu- 
zione del problema (se il giocatore non 
l’ ha trovata) e la classifica dei concorren- 
ti, secondo la distanza delì 'obiettivo. 


Suggerì mentì per sofisticazione 

A propria scelta, ogni lettore può intro- 
durre varie modifiche, ad esempio rende- 
re obbligatorie tutte le operazioni almeno 
una volta, cambiare II cange dei numeri 
di partenza e di arrivo, aumentare o di- 
minuire il numero delle cifre sul tabellone 
e molte altre ancora, varianti atte a ren- 
dere più divertente il gioco. 
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100 REM ************************* 
******** 

* COMMODORE 


110 REM 
6 4 
120 REM 

130 REM 
3 

140 REM 


C-1S & PLUS-4 
LUDUS MATHEMATICU 


150 REM * DI ANTONIO PONTOR1ERI < 
PAVIA) * 

IBS REM ************************* 
******** 

181 PRINTCHR*< 147) 11 1- C0hf40D0RE 64 


300 

310 

320 

330 

340 

350 

360 

370 


« » 


IM«KK6> : 
J *0 TO 


PRIMI C-HR*< 147)1 " PARTI TA N. 

M‘. PRINT: FRI NT 
PRIMI "GIOCATORE : V 
OR 1=0 TO 3: FOR 
4 

BB$ (I/.J> = '“ 

K*INTCRrCK0)*£0>+l 
K*=MID$IC*,K, i >s IF 
HEN 330 

B*(I r J>=K*i C*=LEFT*<C*,K-1 >+" 
8"+RIGHT$(C*,£0-K)i NEXT J, I 
NP=INT<RND(0>*30)+21 1 NA-M 5 ! K 
(i)=0i K (£>=0s K < 3 ) =0 
SQ*=**s FOR 1=1 TO 5i K = INT 
(RMJ C0 > *3 ) + 1 : K*=MID*<STR$(K> , 


K*=*0 


162 

ii 

PRINT“£- C 

>16 & PLUS 

4 " 

380 

2 ) 

IF 

K*i 

THEN 

II 

183 

GET A*s IF 

A*-"* THEN 

163 

398 

IF 

K=2 

THEN 

K <2 ) = 1 

184 

IF AS-"£" 

THEN GOSUB 

1460 

400 

IF 

K=3 

THEN 

K <3 ) = 1 


170 PRINT CHR*(147>J "ATTEM3I 5 SE 
CONO I , . . " 

180 XY*=“[H0MEn£4 DOWNl'i REM IH 
OME1 + 24 [DUINI 
190 FOR 1=0 TO 9 
£00 READ A: IF A = -l THEN £20 
£10 A*<I)=A*U)+CHR*(A)! GOTO £00 
££0 NEXT: PRir.IT CHR$<14?> 

£30 ir#»UT ‘QUANTE MANI VOLETE GIO 
CARE ‘;MSS IF M4<1 THEN £30 
£40 IM-’UT ‘QUANTI GIOCATORI *;GI: 

IF GIÙ TOEN £40 
250 DIM NM*CGI>, PT(GI), P$(GI>, 
INCGI+l), B$<3,4), BBS<3,4) 

£60 FOR 1=1 TO Gl 
£70 PRINT "NOME GIOCATORE"; i;t IN 
PUT NM*<I> 

280 |sM$(I>=LEFT*<M4*(I>,15>: NEXT 
290 FOR M=1 TO MS: FOR G=1 TO 
Gl: C*=‘ 1 11 1££££333344445555 

11 


4ie 

420 

430 

440 

450 

480 

470 

480 

490 

500 


SQ$*SQ$+K*:|SEKT 

IF K < 1 ) OR K ( 2 > OR K<3) 

THEN 440 

K < 1 > =0 s K (2 ) -0 : KC3)=6! GOTO 
370 

FOR 1=1 TO 5: K= INT (RND<0 ) * 
5) + 1 

J =VAL<MlD£(SQ$r I f 1 ) ) s ON J GO 
TO 460 , 478 r 480 
SQ$< I >=STR*<NA)+" - B +STR*(K)f 11 
= B +STR*<NAHO i NA=NA’Kì GOTO 
430 

SQ£< 0=STR*CNA> + " + " +STR*(K ) + ir 
* * +STR$<NA+K > s NA = NA+K= GOTO 
430 

SG*<l)=STR$<Nm + fl * * +STR#CK ) + " 
* * +STR$(NA*K ) s NA=NA*K 
NEXT: PRINT CHR*<147>; 

PRINT "NUMERO “ s PRINT " DI": 
PRINT «ARRIVO": PRINT > 
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510 K*=MIO*(STR*CNA) ,2) i PRINT CHR 
*< 19>; TAB<7>; 

520 POR 1=1 TO LEN(K*>: PRINT A 
*<VAL(MID*(K*, I , 1 > >>; 5 NEXT 
530 PRINT CHR*<19); TAB (24) "ATTE 
NZ I ONE " s PRINT: PRINT TAB(24>; 
540 PRINT "15 SECONDI" : PRINT LEFT 
*<XY*,7);s FOR 1=0 TO 3 
550 FOR J =0 TO 4: PRINT A*(VAL< 
B*(I,J>>); SPC<4>;: SEXT J 
560 PRINT: PRINT: PRINT: PRINT: NE 
XT I* TI*= "000000" 

570 IF VAL (TI*)=15 THEN 620 
580 T = 15 -VAL (TI*) : PRINT LEFT*(XY* 
,2): PRINT TAB <26-LEN< 8TR*(T > 

) );T 

530 IF Tl*> "000005" THEN PRINT 
TAB (24 ) J CHR* < 145 ) ; "0“ 

600 IF TI*= “0008 14 “ THEN PRINT 
LEFT*(XY*,2) : PRINT TAB (33); 
• 0 " 

610 GOTO 570 

G£0 PRINT CHR*(19);: FOR I=! TO 
•4: PRINT TAB (24)* 

:REM 10 

630 NEXT li FOR 1=1 TO 20 
640 PRINT * 

*: REM 33 SPA 
ZI 

650 NEXT I: K*=MID*(STR*<f^) ,2): K 
(1)=VAL(MID*<K*,1,1>> 

660 K (2 ) =VAL <MID*( K*,2 , 1 ) > : PRINT 
CHR*<13); TAB (27); A*(K<1)>? 
670 PRINT A*(K(2)>; LEFT*(XY*,3) : 
FOR 1=0 .. TD 3: FOR J=0 TO 
4 

680 PRINT CHR*< 157 ) ; I? CHR*<157); 

Jj SPC ( 3 ) ; : NEXT J 
630 PRINT: PRINT: PRINT: PRINT: NEXT- 
i: FOR 0P=1 TO 5: PRINT CHR 
*( 19 ); 

700 PRINT TAB (19); CHR*(13>; CHR* 
(164); "Fi"; CHR*< 164 ) ; CHR*<1 
46); 

710 PRINT CHR*< 1 64 > ? CHR*(164 

); CHR*( 116) 

720 PRINT TAB < 13 ) ; CHR*<18); CHR* 
(164); "F3"; CHR*(164); CHR*( 1 

4S)* i 

730 PRINT CHR*<164); lf + "; CHR*( 164 
); CHR*( I 16 ) 

740 PRINT TABU9); CHR*(1B>; CHR* 


(3E>; "F5"l CHR*(32>; CHR* < 146 
) ; 

750 PRINT CHR*(32 ) ; "t*; CHR*C32>; 
CHRS< 116) 

760 GEI A*: IF A*= * " THEN 760 
770 SP$=* "! REM 8 SPAZI 

780 IF ASC (A* ) < > 1 33 THEN 800 
790 PRINT LEFT*<XY* ,2); TAB (19); 
SF*: PRINT TAB < 19); SP*: GOTO 
840 

800 IF ASC <A*> 0134 THEN 8£0 
810 PRINT CHRSC13); TAB (13); SP*: 
PRINT: PRINT TAB <19)1 SP*: G 
OTO 840 

820 IF ASC (A*) <>135 THEN 760 
830 PRINT CHR*<18>; TAB < 19); 3P*i 
PRINT TAB< 19 > ; SP* 

840 PRINT LEFT*(XY*,4 ) ‘ TAB(21>; 

*7 7 " 

850 GET A 1*3 IF A1*< H 0 U OR AI* 
> " 3 11 THEN 850 

360 PRINT LEFT*(XY*,4); TAB(£l); 
Al* 

870 GET R2*i IF A2*< M 0" OR A£* 
>M 11 THEN 870 

880 PRINT LEFT*<XY*.4); TAB<23>; 

A2* 

890 IF BB*< VAL< A 3 *> .VAL < A£*> > = " 1" 
THEN 848 

300 BB*< VAL (Al*) ^VAL ( A£*> ) = 11 1 M ì PR 
INT LEFT$(XY*,7+4*VAL(AÌ*>) 

910 PRINT TAB<7*VAL(A2*> >; A*(VAL 
(B*C VAL ( A 1 * > . VAL ( A2*> ) ) ) 

320 IF ASC (A* > 3 133 THEN NP=NP-V 
AL<B*(VAL(A1S) ,VAL(A2*) )>: GOT 
0 950 

330 IF ASC (A*) - 134 THEN NP^fF+V 
AL <B*< VAL < A IS) /VAL (A£*) > ) : GOT 
0 950 

940 IF ASC (A*) - 1 35 THEN NP = NF*V 
AL ( B* ( VAL ( A 1 * > , VAL (A2*> ) > 

950 INF*=MID£(STR*(NP) ,2): FOR 1 = 1 
TO LEN(NP*) 

360 PRINT CHR*(19); TAB(24+3*I>J 

A*<VAL(MID*CNP*.I A ) > >: NEXT 1 
970 NEXT OP: FOR 1=0 TO 2000: N 
EXT li IF NP=NA THEN 1050 
980 PRINT CHRSCI47): PRINT "IO HO 
TROVATO IL MODO DI RAGGIUNGERE 

a 

990 PRINT5 PRINT n IL RISULTATO ESA 
TTO : " : PRINT: PRINT 
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1000 FOR 1=1 T0 40: PRINT CHRiCl 
32); i NEXT li PRINT: PRINT 
1010 FOR 1=1 TO 5: PRINT TAB(13 
)J SQÌ(I): PRINT! NEXT I 
1020 PRINT; PRINT; FOR 1=1 TO 40 
: PRINT CHRi(192>?s NEXT 
1030 PRINT; PRINT TAB(ll); CHRÌ(18 
); " (PREMI UN TASTO)" 

1040 GET A*: IF A*= ‘ * THEN 1040 
1050 PT (G> =PT (G ) +ABS (NA-NP ) : IF Gl 
= I THEN 1 150 

1060 PRINT CHRÌ( 147 ) > CHRÌ(18); “CL 
A3SIFICA! “ : PRINT: PRINT 
1070 FOR 1 = 1 TO Gli IMCI >- E s TtX 
T is FOR 1=1 TO Gl- li FOR 
J=I+1 TO Gl 

1080 IF PT ( INC J> ) <PT ( IN( I ) ) THEN 
A=IN( 1 ) : IN(I)=IN(J)i IN(J)=A 
1030 TCXT J: PRINT TAB( 5-LEN(STRÌ< 
I))); l; SPC(3>; M4*<IN(I>>; 
1100 PRINT TAB(35-LEN(STRÌ(PT(IN( I 
)))>); PTCIN(I)) 

1110 NEXT I! PRINT TAB(5-LEN(STRÌ( 
Gl))); Gl; spc<3); 

1120 PRINT NMÌ( 1N(GI ) ); TABC35-LEN 
(STRÌ(PT( IN(GI ) ) >>>? PT ( IN(G I ) 
) 

1130 PRINT! PRINT! PRINT! PRINT TA 
B( 1 1 );CHRÌ( 18); " PREMI UN TAS 

TO " 

I 140 *GET A*s IF Ai= " " THEN 1140 
1150 NEXT G, M: PRINT: PRINT! PRINT 
! PRINT! PRINT "HA VINTO *J 
1160 PRINT CHRÌ(13); M4Ì(1N(1)); CH 
Ri (32 ) ? CHR*(146>; CHRÌ<32>; 

! " 

1170 GET Ai! IF Ai= ' " THEN 1170 
1 180 RUN 

1130 DATA 18, 131, 162, 146, 137, 
17, 157, 157, 157, 161, 32, 16 
1 

1200 DATA 17, 157, 157, 157, 161, 
32, 161, 17, 157, 157, 157, 18 
8 

1210 DATA 18, 182, 146, 32, 145, 1 
45, 145,-1, 172, 161, 32, 17 
1220 DATA 157, 157, 157, 32, 161, 
32, 17, 157, 157, 157, 32, 161 
1230 DATA 32, 17, 157, 157, 157, I 
60, 130, 32, 145, 145, 145,-1 
1240 DATA 18, 131, 162, 146, 187, 
17, 157, 157, 157, 32, 162, 19 


0 


1850 

DATA 

17, 157, 

157, 

157 , 18, 1 


31 , 

146, 32, 32, 17 

, 157, 157 

1860 

DATA 

157, 13 r 

183, 

163 , 146, 


130 , 

145, 145, 

145, 

-1, 18, 13 ! 

1870 

DATA, 

188, 146 

, 187 

, 37, 157, 


157, 

y 

157, 38, 

168 , 

Ì30, 17, 15 

1880 

DATA 

157, 157 

, 187 

, 38, 161, 


17, 

P 

157, 157, 

157, 

188, 18, 16 

1890 

Cr 

DATA 

148, 33, 

145, 

145, 145,- 


1, 32, 13, 190, 146, 32, 17 


1300 

DATA 

157 

, 157 

, 157, 18 

, 191 

r 


161 , 

7 

146, 

33, 

17, 157, 

157, 

15 

1310 

i 

DATA 

18, 

163, 

137, 146 

, 190 

r 


17, 

157, 

157, 

157, 32, 

183, 

38 

1320 

DATA 

145 

, 145 

, 145,-1, 

18, 

13 


1, 162, 146, 32, 17, 157, 157 
1330 DATA 157, 131, 162, 32, 17, 1 
57, 157, 157, 32, 32, 161, 17 
1340 DATA 157, 157, 157, 188, 18, 
162, 146, 32, 145, 145, 145,-1 


1350 

DATA 18, 191, 

163, 

146 

f 33 , 

1 


7, 157, 157, 157, 131, 

162, 

32 

1360 

DATA 17, 157, 

157, 

157 

, 161 

* 


32, 181, 17, 157, 157, 

Ì57, 

18 


8 





1370 

DATA 18, 163, 

146, 

32, 

145, 

1 


45, 145,-1, 13 

, 173 

, 162, 146 

1380 

DATA 161, 17, 

157, 

157 

, 157 

r 


33, 173, 190, 

7 

17, 157, 

157, 

15 

1390 

r 

DATA 33, 161, 

32, 

17, 

157, 

15 


7, 157, 32, 190, 32, 145, 145 
1400 DATA 145,-1, 18, 131, 162, 14 



6, 187, 17 

, 157, 157 

, 157 

, 131 

1410 

DATA 

162 , 

190, 17, 

157, 

157, 


157, 

161, 

32, 161, 17, 157, 15 

1420 

f 

DATA 

157, 

188, 18, 

162, 

146, 


38, 

145, 145, 145,-1 

, 18, 

131 

1430 

DATA 

163, 

146, 187, 

17, 

157, 


157, 

157, 

191, 168, 

130, 

17, 1 


57 





1440 

DATA 

157, 

157, 32, 

33, 161, 1 


7, 157, 157, 157, 188, 18 

, 162 

1450 

DATA 

1 

FOR 

146, 

32, 145, 

145, 

145,- 

1460 

1^1 TO 

8! KEY I, 

• 



CHRÌ(I+132)i NEXT! RETURN 
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AM! BAM ! è un videogtoco solo per 
Commodore 64 c Vie 20, strutturato in 
modo semplice, ma molto divertente 
Per giocare si utilizza la tastiera, precisa- 
mente i tasti E,X,S,D (alio, basso, sini- 
stra > destra). Per coloro che hanno Pop- 
portunità di utilizzare un joystick, sì ren- 
de necessaria una semplice procedura: 

1) Non digitare le lince 530, 540, 550, 
560. 

2) Digitando le ultime quattro righe 
(880, 890, 900, 910), tralasciare il nume- 
ro di riga e l’istruzione rem. 

In questo modo vengono inserite auto- 
maticamente nel programma le linee di 
lettura del joystick. 

Prima di dare il fatidico RUN, consi- 
glio di registrare il programma; questo 
perchè un eventuale errore nelle istru- 
zioni POKE potrebbe causare un inchio- 
damento del sistema. 

Una volta fatto partire il programma 
(RUN), si è invitati ad attendere pochi 
secondi, durante i quali viene trasferita 
in RAM una parte della mappa caratteri 


Un videogioco 
semplice da digitare, 
utilissimo ai 
principianti per 
studiare la 
ridefinizione dei 
caratteri, brevi 
routine sonore ed 
effetti speciali. 


A questo punto bisogna comunicare al 
programma il livello di difficoltà o, in 
altre parole, il settore da cui si vuole 
iniziare (da 1 a 10), 

Come si gioca 

Lo scopo del gioco consiste nello scari- 
care 300 kg di polvere pirica sul campo in 


cui vi trovate. Ma attenzione! Due osta- 
coli insidiosissimi vi rendono difficile la 
vita : i TESCHI c il TEMPO a disposizio- 
ne, piuttosto limitato. 

Per scaricare lutto ! esplosivo che vi 
portate dietro è necessario camminare; 
munire vi spostate, lasciate dietro di voi 
un certo quantitativo di polvere. Un al- 
tro ostacolo, a questo punto, è la polvere 
scaricata: se ci andate sopra perdete una 
delle vite a disposizione. State attenti 
sempre a dove andate, perchè nei settori 
più avanzati potete involontariamente 
chiudervi la strada. 

Nelle due righe piu alte della scherma- 
ta sono presenti 4 indicatori: tempo, KG 
depositati, vite, settore. 

TEMPO: il tempo limite è 1 minuto e 30 
secondi e rimane costante per ogni setto- 
re, ma con diversi punti di partenza, sem- 
pre crescenti, Se non si riescono a depo- 
sitare i 300 kg di polvere nel tempo utile, 
si perde una vita, 

kg DEPOSITATI: vengono indicati i kg 
di polvere depositata dall'inìzio del set- 
tore, La quantità di polvere depositata in 
totale viene resa nota al termine della 
partita; questo rappresenta il punteggio. 
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VITE: ne perdete una nei casi soprade- 
scritti ; quando si arriva a 0 b partita ter- 
mina. Giunti al terzo o al quinto settore, 
BÀM ! B AM! vi regala una vita. 

SETTORE: viene reso noto il settore in 
cui ci si trova: il settore più facile è quello 
rappresentato dal numero 0; seguono IT 
il 2, e COSÌ via. Un settore si differenzia 
dal successivo per numero teschi e dispo 
nibiìità tempo. 

RENDETELO FIU + DIVERTENTE! 
Potete porre tutte le sofisticazioni che 
volete: variare il livello di difficoltà, le 
vite, ridefinire i caratteri, cambiare i co- 
lori, abbassare o alzare il tempo limite. 
Tutto a seconda del vostro gusto e della 
vostra bravura. 

E* molto piacevole giocare a BAM! 
BÀMl, perchè si è sempre stimolati a 
migliorare la propria prestazione. 

Funzionamento dei programma 

Schematica indicazione del compito 
che svolge ogni parte del programma (ri- 
ferimento alle linee). 

300-400 ìnìzìaUzzazìone variabili, para- 
metri del suono e della grafica 

410-460 disegno della schermata 


470-490, 520 E 590-670 movimento 
dell ornmo-protagonista; verifica delle 
collisioni e del tempii 

500-510 aggiornamento degli indicatori 
530-560 lettura joystick o tastiera 

680-730 indicazione punteggio; ritorno 
airinizio 

740-840 trasferimento mappa caratteri; 
ridefinizione nuovi caratteri 

850-870 istruzioni DATA contenenti i 
numeri binari dei caratteri da definire (3 
caratteri* 24 numeri) 

880-910 righe supplementari per il con- 
trollo del joystick 

Variabili principali; 

Q - settore in cui ci si trova 
I - settore da cui si è partiti 
P - kg depositati rìaU'iiuzio del settore 
V - vite rimanenti 

S - contiene il valore 54272, utile per 
programmare e definire le caratteristiche 
del suono 


TI$ - variabile speciale per il conteggio 
del tempo 

A - locazione di schermo dove sarà stam- 
pato l'omino 

B - locazione di schermo dove sarà stam- 
pata la polvere depositata 

Altre indicazioni 

lì programma è allocato a partire dal- 
l'indirizzo 2049. 

La parte “maiuscolo-grafici’" della 
mappa caratteri viene trasferita a partire 
dall'indirizzo 12288. 

Vengono ridefiniti ì caratteri: A (te- 
schio, riga 850); B (protagonista, riga 
860); C (polvere depositata, riga 870). 

I! programma è relativamente breve; 
occupa circa 2,5 Kbytes di memoria, più 
altri 2 Kbytes per i caratteri. 

r 

Facilitazioni alla copiatura 
dei listato 

Le righe dalla 100 alla 290 possono 
essere omesse senza che cambi nulla. 

In riga 410 vi sono 40 “A", in riga 430 
ve nc sono 39. 

In riga 420 vi sono 38 spazi bianchi. 


100 REM V IDEQG I0C0 BAM! BAM! 

118 REM SOLO PER COMMODORE 64 
1 20 REM JOYSTICK IN PORTA 5 
130 REM 0 TASTIERA E,X,S,D 
140 REM MAURIZIO DELL'ABATE 
188 : 

ise REM OVVERO: COME CREARE 
1S0 REM UN PROGRAMMA RICORRENDO 
200 REM ALLA R IDEF INIZ IONE 
£10 REM OEI CARATTERI NEL 
££0 REM COMMODORE S4 
£30 : 

300 POKE 53281, 7: POKE 53230,6: POKE 
53272, (PEEKt53272> AND £40) 0 

R 4 

310 PRINT TAB <9 ) ' 11 1 OLEARI IELEU3 [RV 
SI .3- ATTENDI CHE SIA 2ER 

0 " 

320 PRINTCHR$<3)J " EDOUINI tRVSJ"; TA 


B( 1£) : " IBLEU 3 BAM! BAM! " 

325 PRINT TAB <9 ) ; " {!£ DOWNKRVS] TA 
STI: E ,S ,D ,X ” : GOSUB 740 

330 3=54272 : FOR 1=0 T0 E4:PQKE 3+1 
,0 : NEXT: V=3 ! P=0 : Q =0 
340 POKE 193,0: INPUT “ tCLEAR 3 [GOUN 
3 CRIGHT1 {BLEU ILI VELLO DI OIFFI 
COLTA' ’;J:IF J40 OR J>10 THEN 
iGQTO 340 
350 Q=j:GOTO 370 

368 Q=G+1 ;P=0iTI$-"000000": 1F Q=3 
OR Q=5 THEN :V=V+1 
370 T I$= "000000 POKE S, 6: POKE 3+1 
,17 

380 POKE 3+5,0*16+15: POKE 3+6,15*1 
6+2 

330 POKE S +24 , 3 

400 PRINT" tCLEAR 3 13 DOLIMI " i : POKE 5 
3280,0: POKE 53£S1,£:P0KE 53272 
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, (PEEK <53272 ) AM) £40) OR 1£ 
410 PRINT" [NEROJAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAA " ; 

420 FOR 1=1 TO 20:PRìNT ,, A 

fi 

" ; i NEXT 

430 PR I NT " AAAAAAAAAAAAAA A AA A AA A A A A 
AAAAAAAAAftAAAAA " ; : P OKE £023,1: 
POKE 56295 ,0 

440 FOR 1 = 1 TO Q*50+10:Z=1200+INT( 
300*RM) ( 1 ) > : POKE Z,UPOKE S4£? 
2+Z ,0 : NEXT 

450 PRINT" [HOME! [DONNI [R IGHTJ [GIRL 
LO ] TEMPO = V ITE» ” 

460 PRINT" [RIGHT] [GIALLOJKG DEP . = 

SETTORE»" 

470 A= 1 185 
4S0 POKE S+4 , 1£8 

430 POKE A, 2* POKE 54272 +A, 1 :B=fi 
500 PRINT" [HOME] [DONNI"; TAB(8)lTl 
SI TRB ( £4 ) ; V 

510 PRINT TAB<9);P; TA6(£7)lQ 
520 IF TI$>="000 130“ THEN tGOSUB 6 
10 :TI*= "000000 ” : GOTO 370 
530 IF PEEK < 197 > = 14 THEN :A=fì-40SG 
OTO 580 

540 IF PEEK (197) =23 THEN :fì=fì+40:G 
OTO 530 

550 IF PEEK< 197)= 13 THEN :R=R-i:GO 
I TO 580 

5S0 IF PEEK (197) =13 THEN :A=A+l:GO 
TO 530 

570 GOTO 430 

530 POKE S+4 , 129 : IF PEEK(A> = 1 OR P 
EEK ( A) =3 THEN :GOSUB 6 10: GOTO 
370 

590 IF P=300 THEN :GOTO 360 

600 POKE B ,3 : POKE 542?£+B,3:P=P+l : 

, GOTO 430 

610 V=V-1:IF V=0 THEN iGOSUB 620:G 
OTO 650 

620 POKE S+24 , 10 : FOR 1 = 1 TO IO 
630 POKE S,256*RND(1) :POKE S + URND 
( 1 >*256 

640 POKE S+4 , 129 : FOR K = 1 TO 20:NEX 
T : POKE S +4 , 1 28 : NEXT : RETURN 
650 PRINT" IHOKE] [DOWN] *; TABC24);V 
660 FOR 1=1 TO 30t POKE 53272 , (PEEK 
(53272) AND 240) OR 14 
670 POKE 53272, (PEEK (53272) ANO 24 
0) OR 12:NEXT 

680 POKE 53231, liPOKE 53£30,5*»POKE 
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53272, (PEEK (53272) AM) 240) 0 
R 4 

690 PRINT" CCLEARK7 DONNI 11 
700 PRINT" t2 RIGHT] [NERO )HAI ESAUR 
ITO LE TUE VITE" 

710 PRINT" [2 RIGHTI £RVS H DONNI IBLE 
U ]HA I SCARICATO[RVOFF)";300*(Q 
-J)+P; 11 [RVS1KG DI POLVERE [2 00 
NN3" 

720 FOR t=l TO 3000: NEXT: GOTO 330 1 

730 GOTO 730 

740 POKE 5l,0:POKE 52,43 
750 POKE 55,0: POKE 56,43 
760 POKE 56334, PEEK (56334) AND 254 
770 POKE 1 ,PEEK ( 1 ) AND £51 
780 FOR Z=0 TO 2047 :PRINT" [HOME] [N 
ERO] "S047-Z " ILEFT) " 1 

790 POKE 1228S+Z ,PEEK (53248+Z ) 

300 KEXT 

810 POKE 1,PEEK<1) OR 4 

820 POKE 56334, PEEK <56334) OR 1 

830 FOR 2 -B TO 31 

848 READ FJPGKE 12288+2 ,F s NEXT: REI 
URN 

850 DATA 0, 186, SI 9, 153, 255,126, 30, 
60 

360 DATA 24,24,60,255,255,60,24,24 
870 DATA 0 ,84 , 10,32,63 ,16,74,0 
830 REM 530 1FPEEK <56320 )= 126THEN 
* A =A -40 5 G0TQ630 

390 REM 540 IFPEEK <56320 > = 125THEN 
i A-A +40 s GOTOS30 

900 REM 55© IFPEEK C 56320 ) = Ì23THEN 
; A-A-l :GOTQ630 

310 REM 560 IFPEEK (56320) =1 13THEN 
! A -A + 1 : 6OTO630 



GIOCHI 


La versione di BAM! 8 A V 1 per il Vie 
20 presenta alcune differenze rispetto al- 
la versione per il Commodore 64: 

1) Non è possibilie rutilimi del joystick, 
per muovere l'omino si impiegano i tasti 
ì, M, J, K (rispettivamente su, giù, sini- 
stra, destra). 


2) Una volta data la direzione all'omino, 
esso continua il suo moto anche senza 
tenere premuto il tasto; non t possibile 
quindi fermarsi. Da questo nasce I inuti- 
lità dell'Indicatore tempo, non presente 
infatti in questa versione. 

3) Oli indicatori Kg depositati; vite, 
schermo non sono presenti sullo scher- 
mo ma il programma li valuta indif- 
ferentemente. 


4) Per terminare lo schermo in cui ci si 
trova è necessario depositare Kg 200 di 
polvere, non 300 come sul 64. 

Il resto è fondamentalmente uguale; 
gli utenti del Vie 20 leggano quindi la 
prima parte dell’articolo per il t ’ 64 trala- 
sciando però ic parli di descrizione tecni- 
ca (variabili, allocazione...) 

di Franasse Marco 


100 REM 8AM ! BAM? - VIDEOGIOCG 
110 REM VERSIONE VIC 20 INESPANSO 
120 : 

130 POR 1=0 TO 824 ! POKE 6144+I,PEE 
K <3£76S + 1 > : NEXT: POKE 36363,254 
: FOR 1=0 TO 23: READ A 
140 POKE S6B4+ I , A : NEXT 
15S W= 150 : 0 =59 

160 POKE 36373, 108 : PR 1 NT " ICLEAR ] [B 
I ANCO ] “ 

170 C=7703 

130 B=?680 : POKE 0,66 
130 POKE B ,67 :B=B+ 1 : IP B=7701 THEN 
210 

200 GOTO 190 

210 POKE B,S7:B=B+22: IF B=3135 THE 
N 230 

£20 GOTO 210 

230 POKE 8 ,67 :B=B - 1 : IF B=3164 THEN 
250 

£40 GOTO £30 

250 POKE B,67 :B=B~££ : IF B=?680 THE 
N 270 

£60 GOTO £50 

270 FOR T= 1 TO G : X = I NT < RND ( 1 ) *480 > 
+7704! POKE X ,G7 t NEXT 

£38 GET A* 

298 IF A$= " K 11 THEN 340 
308 IF A*= ,J M” THEN 370 
318 IF A4= " J " THEN 400 
320 IF A*= ,J I" THEN 430 
330 GOTO £80 

340 POKE C,65:C=C+1*. IF PEEK(C)=67 
OR PEEK (C ) =65 THEN 460 
350 POKE C ,66 : GOSUB 570: FOR T=1 TO 
W: NEXT : GOSUB 640:G£T A$: IF A* 
= ; ‘ " THEN 340 
360 GOTO £30 

370 POKE C ,65 :C=C+££ ! IF PEEK<C>=67 
OR PEEK <0=65 THEN 460 
330 POKE C, 66: GOSUB 570: FOR T=1 TO 
LI: NEXT i GOSUB 640:GET MMF A* 
= THEN 370 
330 GOTO 230 


400 POKE C ,65 :C=C- - 1 : I F PEEK (C; =67 
OR PEEK <0=65 THEN 460 
418 POKE C .66 : GOSUB 570: FOR T=1 TO 
LI: NEXT : GOSUB 640:GET A4D IF A* 
="" THEN 400 
420 GOTO £30 

430 POKE C ,65 : C =C -££ : IF PEEK<CJ=67 
OR PEEK <0=65 THEN 460 
440 POKE C, 66: GOSUB 570: FOR T=1 TO 
Li: NEXT: GOSUB 640:GET A*: IF A$ 
="" THEN 430 
450 GOTO £30 
460 V=i5 

470 FOKE 36378, V: POKE 36877, 14S:F0 
R T= 1 TO 100: NEXT: POKE 36877,0 
: V=V-1 : IF V=0 THEN 430 
480 GOTO 470 

430 POKE 36S7S , 15 :R=R+1 : IF R = 3 THE 
N 520 

500 GET ft$:IF A*=" M THEN 160 
510 GOTO 500 

520 PRINT" ECLEARI £4 DOWN] [RIGHT] SE 
I STATO ANNIENTATO" 

530 F'R I NT 11 £ 5 DONNI £2 RIGHT] SCORE " ; 
S 

540 PR INT" £5 DOWN] £6 RIGHT1GAME OV 
ERfBLEU] ‘ 

550 GET A*:iF A$= “ I TF7 ] " THEN 150 
560 GOTO 550 

570 S =6 + 10! POKE 36878, 15i POKE 3687 
6, 160: FOR T= 1 TO 5:IF S=£000*T 
THEN 610 
530 NEXT 

590 IF S« 1£000 THEN 6£0 
600 RETURN 

610 U=W~25:Q =0+15: POKE 36876, 0:GOT 
0 160 

620 PRINT" [CLEAR] £3 DOUN3C3 RIGHT] 
ECCEZIONALE" : POKE 36876,0 
630 GOTO 530 
640 POKE 36376,0: RETURN 
650 DATA 24,38,66,123,129,66,36,24 
,60, 126,255,255,255,255,126,60 
,60,126,213,255,255,231 
660 DATA 36,60 
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OMINO 


1000 PRIKTrtCLEARl-iPOKE 53£&0,6!POKE 53£&l,6iV»5 
3243 

1010 FOR J z 0 TO SÉ: RE AD Q:P0KE 12480+J r QiNEXT 


1020 FCR J-0 TO 62! READ GNFOKE 125444 J ,Oi hEXT 

1030 FGR J=0 TO 62 ? READ 0 : POKE 1 £608 +J , G * IMEHT 

1040 FOR J=0 TO 82! READ DìFQKE 1267£+ J ,GeKE;xT 

1050 FGR J — 0 TO SEiREAD QspOKE 12736+ J ,0 iNEXT 

1060 PRINT M [OLEARI "spOKE V+39,5iPQKE V +40, Si POKE 
V+41 ! POKE V+4£,5JP0KE V+43,5 
107© POKE £040, 105! POKE 204 1 , 196 * POKE £04£,l97iPD 
KE 2043, 193! POKE £044 , 138 ìPQKE V+2K31 
1000 POKE V+23 ,31 iPOKE V+28,31 

1030 POKE V+0,54 :PQK£ V +9, 100! POKE V+0, 102 i POKE V 

+ 1,100 

1100 POKE V +2,1 SS! POKE V+3,100iFOKE ¥+4,198* POKE 
¥+5, ! 00 r POKE ¥+6, £33? POKE V+7,10© 

1 1 10 GOTO I 1 10 

1120 DATA 0,0, tì,6, ft,0,0 ,0,0,0,63 ,206,31 , 127 ,£ 
39 , 15, 240, £33, 15,224,207, 142 
1 130 DATA 240, 133, 156, 124,7, 184,63,131 ,240,15, 195 
,224 ,131 ,225 , 192,133,243, 128 
SJ40 DATA £43,247,0,255,239,0 ,255,206,0,0,0,0,0,0 
,, 0 , 0 , 0 , 0 , 0 , 0,0 

H50 OATA 0,8,192,0,1 ,192,0,3, 192,0,3, 192,63, 207, 
248, 127 r 227 , 19£,£4©,22? 

1160 DATA 193 ,£24 , 195 , 135 ,240 ,131, 195 , J£4 ,3 , 195 ,6 

3.131.195 15,195 

1170 DATA 135, 131 '227,185,193, 243, £27 ,243, 243, 241 
,£55 ,227 ,£48,255 , 193,248 
1180 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
1138 DATA 0,0, 3, 0,0,8, 0,0, 0,0, 0,0, 126, 13 , 176 r 23| , 
15 

1S00 DATA £40,135, 143,240, 1 95,205,184, 195,205, 152 
,£55 

1210 DATA £05,216, 192, 1E, 220, 192, 12, 204, 195, 204 ,2 

36.195 

122© DATA 140,110,231 ,l£,102,£54,l£, US ,66, 14,55, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 0,0 

1230 DATA 0,0,0 ,0 ,0 ,0,0, 8,0 ,0 ,0,0 ,0,63 , 192 ,0 , 127 , 
££4,0, £40, £24 ,0,224,192 ,0 
1240 DATA 240,128,©, 124,8,8, 63, 1£S, 0,15, 182,0,131 
,224,0, 133, £40 ,0 ,£43,240,0 
1£50 DATA 255 ,224 ,0 , 255, 132 ,0 ,0 ,0 ,0 ,'© ,0 ,0, 0,0,0 ,0 
,0 

1260 DATA 255,235,243, 143, 195, S, £55 ,255, 243, 106,0 
, 206 , £55 ,255 , 240 , 246 ,0,40 
!£70 DATA 255 ,255 ,248 , 19© ,0 , £4 ,£55 ,£55 ,248 , 135, 19 
2, 8, 235, £35, £48, 128, 124, 6 
12S0 DATA £55 ,255,248, 160, 15, 136,255,255,248,160, 
1 , £3£ ,£55 ,255 ,£48 , 176,3 ,232 
1230 DATA 255,255,243, 3 40,63, £00, 255, £55, £48 


1000 REM **************** 

1018 REM * A CURA DELLA * 

1028 REM * REOAZ JONE Di * 

1038 REM * COMMODORE * 

1040 REM * CLUB * 

1050 REM **************** 

10S0 FOR 1=0 TO 4 1 FGR J=0 TO 62 I READ BT* POKE £50* 
64+64*1 +J pBYsf^XTJ, I 

1070 FOR 1 = 1 TO 8! READ SN< D s KEHT 1 *V 10=53240 
1080 POKE V1C+32, 11 ìPOKE VlC+33,1! 

1090 POKE V1C+21 , 1 ìPOKE V IC+23 , 1 :PQKE VIC+29,1 

1100 POKE V IC+£8 , 1 

1110 POKE yjC+33,0 

1120 POKE V IC+37,8 

113© POKE VJC+38,2 

114© POKE V1C+1 , 100:NR=! 

1150 PR INT* CCLEAR J * 
l 160 FOR H*! TD £55 STCP £ 

I 170 POKE VIG*0,X 

1188 POKE £040 ,£50+SN< NR > : REM PUNTA AD UN 01FFER 
ENTE BLOCCO DI MEMORIA 
1190 MR=NR+ 1 
1200 IF f^>6 THEN hR-1 
1210 FOR 1-1 TO 50*h£XT 
1220 MEKTX 
1£30 BOTO U5D 
1240 REM *** SPRITE 0 *** 

1250 DATA 2,34,0,1©, 168,©,34, 148,0 
1£60 DATA £,89,84,10,85,88,8,69,64 
ì £70 DATA 34 ,64 ,8,0, 85,0, 3, £43,64 
1280 DATA 43,184,0,191,191,200,255,239,212 
1230 DATA 95,250, 146,67, 25£, 0,0, 163,0 
1300 DATA 34,170 , 0 ,42,186, 1 £6 ,4£ ,££8 , 1£8 
1318 DATA 170 ,£,126, 160,2, 160, 12B,0, ISO 
1320 REM *** SPRITE 1 *** 

1330 DATA 34,40,128 ,8, 170,0,10,148,0 
1340 DATA 170,153,64,10,85,80,8,85,64 
Ì356 DATA 4£ ,64,0, L £8, 85 ,0,3,245 ,64 
1360 DATA 3, £52,0,3,236, 0,3 1 , 190,206 
137© DATA 94, 255, £08,67, £5£,©,0, 168,0 
1380 DATA 0,168,0,10,170,0,170,10,120 
1390 DATA 166,£, 136,160,2,160,160,0,16© 

1406 REM *** SPRITE 2 *** 

1410 DATA 34,34,©, 10, 168,0, 10, 148,0 
1420 DATA 4£, 89, 64 , 10,85,60,40,69,84 
1430 DATA 10, 64 ,0p3£, 85,0 ,3,245,64 
1440 DATA 3, 232, 0,3 ,£36, 0,7, 188,0 
1450 DATA 23, 188, ©,££,£53,0,0, 168,0 
1460 DATA £,168,0, 10,166,©, 10,42,0 
1478 DATA 8,18,0,10,10,0,10,136,126 

1489 REM *** SPRITE 3 *** 

1490 DATA 0, 138,© , 10 , 168 ,0 ,42 , 148 ,0 
1500 DATA 10 ,39 ,64 , 10 ,85 ,B0 ,8 ,69 ,64 
1510 DATA 34 ,64 ,0,6, 85, 0,3, 245, 64 
1520 DATA 15, 184,0,59, 186,0 ,63, £37,0 
1530 DATA 15,237,64,7 ,£49,64 ( £, 160,0 
1540 DATA 2,168,0,10, 168,8, J0, 42, 9 
155© DATA 8,10,0,10,10,0,10,138,128 
1560 REM *** SPRITE 4 *** 

1570 DATA 2,34,0,10, 168 ,0 , 136 ,148,0 
1580 DATA 42 , 153 ,64 , 10,85 ,B© ,40 ,85,64 
1590 DATA 138,84 ,0,3£,G3, 0,3 ,245 ,64 
IE00 DATA 3, 186,0,3, ISO, 0,3, 188,0 
IBI© DATA 3 , 156 ,0 ,3 ,2 12 ,0 ,0 , 148 ,0 
162© DATA 0, 168,0,0,168,0 f 0, 40,0 
1630 OATA 0 ,40 , © ,0 , 166 ,0,0,170,0 
164© DATA 0,3, 4, 2,1, £,4, 3 
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; Un'iniziativa condotta con 
i la nota rivista Computer 



PROGRAMMO IN 
BASIC 


tt linguaggio dei Muro in un 
manuale rapido e compiato di 
Ctizio Morii 
pagg. 224 (L. 9.000} 

Il Basic, attualmente il 
linguaggio più conosciuto - 
adatto all' yli lizzo su qualunque 
tipo di macchina e in 
particolare sul personal e gir 
homo-computer - può essere 
appreso in poche ore con 
l'ausilio di questo agile 
manuale. 



COME SCEGLIERE UN 
COMPUTER 

Gwda pratica per ^acquisto di 
un mini o di un mìcro computer 
professionale di Micheta 
Di Pisa 

pagg 160 (L 6.000 } 

Quale modello scegliere tra gli 
olire 600 computer 
commercializzati in Italia? La 
conoscenza delle 
caratteristiche delle varie 
macchine è indispensabile. Con 
un approccio a "menu" 
l'Autore vuol essere guida 
proprio in questa fase. 



UTILITY E ROUTINE 
PER IL 

COMMODORE 64 

di Gloriano Rossi 
pagg. 192 (t 9M0) 

L'esecuzione di una istruzione 
BASIC può richiedere diverse 
centinaia di passi di programmi 
in linguaggio macchina. La 
dimensione dei programmi è 
ciò che intimidisce 
maggiormente l'utilizza tore 
medio di Commodore: aiutalo 
da questo testo chiunque potrà 
affrontare senza problemi il 
processo di scrittura di un 
programma. 



BASIC PER LO 
SPECTRUM 


di Maurizio Arrena e Ctizio Medi 
pagg, 192 (L. 9,000} 

Un libro per quanti hanno 
acquistato il computer ZX 
Spectrum della Sinclair e 
intendono sfruttarne appieno 
tutte le capacità, da II 'hardware 
alla programmazione in 
assembly (linguaggio 
macchina)., 
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I volumi, che sono comunque in vendita nelle migliori librerie di tutta Malia 
possono anche essere richiesti direttamente all'Editore. 

Importante: l'ordine minimo dovrà essere di L, 15,000. 




Edizioni ACANTHUS 

VIALE GRAN SASSO, 23 * 20131 MILANO 


Inviate™ r seguenti volumi: 


Titolo 


quantità 


piazza unnarìo 


DIZIONARIO 

DELL* 

INFORMATICA 


V ..vinteli V!* jsfe "V 


C * -V y 

, oAfK n*i 


DIZIONARIO 

DELLTNFORMATICA 

Vocabolario inglese-italiano di 
Cuttrera, Di Pisa t Giacomelli 
pagg. 383 (L 25.000} 

Uno strumento indispensabile 
par chi si avvicina at mondo 
dell'Informatica e per gli 
specialisti che hanno l'esigenza 
di accedere alle dinamica 
letteratura anglosassone. 


spese postati L> 2.000 

totale Li 


Pagherà contrassegno il dovuto (piu L. 2.000 per contribuì spese postali) al rrcevi mento. 
Potrò restituire i libri entro 6 giorni se non saranno di mio gradimento e avere il rimbor- 
so immediato 

COGNOME 


NOME 


VFA N. 


C.A.P, CITTÀ 


firma 


DATA 


Scrivere in stampatene è spedire m busta chiusa 
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QUALSIASI COMPUTER 

Microgiocoda... 

Addestramento 


Alessandro de Simune 
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X Viziamo subito col dire in che cosa 
consisti il gioco, in modo da soddisfare la 
bramosia degli appassionati di videogio- 
chi che vogliono solo divertirsi (non san- 
no quello che perdono limitandosi ad 
usare in tal modo il proprio computer...) 

Dopo aver dato il RUN, lo schermo si 
cancella e viene chiesto il modello di 
computer su cui gira il programma. Gli 
utenti del Vie 20 devono usare il compu- 
ter senza alcuna espansione di memoria, 
altrimenti rischiano di “inchiodare"' il si- 
stema. I possessori di 064, 016 e Plus 4 
non hanno, invece, problemi di sorta. 

A questo punto lo schermo viene nuova- 
mente cancellato ed appare (figura 1) 
una striscia chiara (scura nel caso del Vie 
20), alta due caratteri e lunga quanto 
l’intero schermo. 

Subito dopo apparirà sotto di essa, a 
distanza di un rigo, una striscia di eguale 
spessore e lunghezza, ma frastagliata ed 
interrotta in più punti. 

Nella striscia intermedia rimasta lìbera 
comparirà ora un quadratino minuscolo 
che tende ad attraversare lo schermo da 


Un listato talmente 
breve che più breve 

non si può . Vi 

_ insegniamo a 
sofisticare i vostri 
programmi in 
accordo con un 
vecchio detto 
orientale: se incontri 
uno che ha fame non 
dargli il pane; 
insegnagli a coltivare 
il grano. 


sinistra a destra, ricomparendo nuova- 
mente a sinistra dopo essere scomparso 
al r estremità. Durante questo passaggio, 
che si verifica rie volte, avvengono tre 
fenomeni distinti: non premendo alcun 
tasto, come è intuitivo, il quadratino 
prosegue indisturbato lungo la traietto- 
ria descritta. Premendo un tasto qualun- 
que, il quadratino farà un “salto” e urte- 
rà la striscia superiore generando un in- 
cavo. Se, infine, provate a premere il 
tasto l4 Z’\ noterete che il quadratino 
spiccherà un salto più alto col risultato di 
perforare l’intera striscia superiore. 

U gioco, l’avrete capito, consìste nel 
riprodurre la striscia inferiore in quella 
superiore seguendone i contorni. 

Dopo tre passaggi appara il punteggio, 
che non può essere superiora a 80 nel 
caso del CM6 e del Commodore 64, men- 
tre si limita a 44 nel caso del Vie 20. 

Il gioco, che ad una prima descrizione 
appare banale, è molto difficile ed è piut- 
tosto raro che il giocatore riesca a totaliz- 
zare il massimo punteggio. 
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Come gira il programma 

L'intero gioco si fonda sull’ufo intensi- 
vo de 11 1 istruzione POKE riferita allo 
schermo. Con questa ù possìbile trascri- 
vere (“memorizzare) un numero intero 
in una delle locazioni di memoria dei 
calcolatore. 

Ricordiamo ai principianti che Ea siri' 
lassi corretta per tale istruzione è la 
seguente; 

POKE X,Y 

in cui “X" è l'indirizzo della locazione 
RAM in cui desideriamo venga memo- 
rizzalo il dato ed "Y'" è il dato in 
questione. 

X può avere solo un valore positivo 
compreso tra zero e 65536, m entra Y può 
variare tra zero e 255, Tentando di utiliz- 
zare altri valori compare il messaggio; 
ILLEGAL QUANTJTY ERROR? 

C'è un altro modo, ben più pericoloso, 
di adoperare erroneamente l'istruzione : 
tentando di memorizzare un dato in 
un'area di memoria RAM riservata al 
computer, Non tutti sanno» infatti, che il 
sistema operativo del calcolatore, per 


funzionare correttamente, gestisce alcu- 
ne locazioni RAM sulla quali fonda i 
propri 'ragionamenti'". Se noi alteriamo 
il loro contenuto, potremmo ottenere un 
disastro analogo a quello derivante dalla 
manomissione di un semaforo stradale. 
Se questo è verde contemporaneamente 
nelle quattro direzioni, si rischia di pro- 
vocare seri incidenti; mentre se è con- 
temporaneamente rosso possono verifi- 
carsi intasamenti Non è detto, comun- 
que» che alterazioni del contenuto RAM 
riservato al sistema operativo provochi- 
no necessariamente disastri. Nel caso del 
gioco proposto in queste pagine, infatti, 
useremo l'istruzione POKE relativa al- 
l'area di schermo in modo da far apparire 
un carattere sul video senza ricorrere ab 
l'istruzione PRINT, 


Lo schermo del computer 

Il numero di caratteri che è possibile 
visualizzare su! video è di 1000 (25 righe 
X 40 colonne) nel caso del Commodore 
64 e del C-16, e di 506 (22 colonne X 23 


righe ) nel caso dd Vie 20. 

lì cosiddetto "indirizzo" della prima 
cella video assume diversi valori nei tre 
casi: 

1024 Commodore 64 
3072 C-16, Plus 4 
76S0 Vie 20 inespanso 

Ciò vuol dire che se digitiamo, ad 
esempio: 

POKE 3072.1 

apparirà il carattere "A ” in alto a sinistra 
sullo schermo del C 16 (nel codice dello 
schermo a! valore unitario corrisponde, 
appunto, il carattere A"). Per ottenere 
lo stesso effetto col C-64 sarà sufficiente 
digitare il valore 1024 al posto di 3072. 
Col Vie 20 e con vecchi modelli del Com- 
modore 64, invece, accade un fatto stra- 
no: il carattere “A" non compare in se- 
guito al comando ma, posizionando il 
cursore in alto a sinistra. Io vedremo, 
lampaggiante, sotto di esso. In questi ca- 
st e necessario "colorare' 1 la cella video 
con un colore diverso da quello del ton- 
do, altrimenti il carattere c'è ma... nonsi 
vede. 
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I caratteri semigrafid 

In modo perfettamente analogo a 
quello utilizzato per visualizzare la "À'\ 
è possibile far apparire sullo schermo 
uno qualunque dei 256 caratteri stampa- 
bili contemporaneamente. Il semplice 
onero programma che segue* idoneo per 
il C-64, lo dimostra: 

!f10 FOR 1=1) TO 255 
110 POKE1024+U 
120 NEXT 

* 

E 1 ovvio che è necessario sostituire 
3072 a 1024 nel caso del 016 e 7680 
utilizzando il Vìe 20. Con quest'ultimo 
apparecchio è altresì necessario aggiun- 
gere la riga seguente che ha il compito dì 
colorare in nero (codice=0) le 256 celle 
video interessate all'operazione: 

115 PO K E 38400+ LO 

Anche i possessori di vecchi modelli di 
Commodore 64 aggiungeranno la riga: 

115 POKE552%,0 

Ci soffermeremo ora su cinque codici 
particolari utilizzati frequentemente nel 
gioco pubblicato in queste pagine (figura 
2 ). 

L'istruzione POKE con “argomento" 
123 provoca, ad esempio. Li stessa visua- 


lizzazione ottenibile premendo contórni 
p ora n carne me il tasto Commodore (pri- 
mo in basso a sinistra) insieme con il 
tasto ,L F", Altri caratteri semigrafiei si 
desumono dalla tabella che segue: 


Tasto Commodore 
insieme con: 

Valore della 
POKE: 

F 

123 

D 

108 

Spazio 

32 

Shìft+spazio 

160 

K { + re verse) 

225 


Esame de! listato 

Facciamo anzitutto notare che la nu- 
merazione del programma (a partire da 
1000 con incremento di 100) sarà partico- 
larmente apprezzata da coloro che segui- 
ranno ì! consiglio di inserire altre righe al 
fine di ottenere versioni più sofisticate 
del gioco stesso. 

1700-2300 Inizializzazione delle varia- 
bili relative alle locazioni dello schermo. 
Da notare, in particolare: 

IZ: indirizzo delia prima cella video. 

NC: numero di caratteri (meno uno) 
presenti su due righe video. 


N2, N3» N4; posizione della quarta* 
sesta, settima riga video calcolata come 
numero di caratteri “distanti" dalla pri- 
ma cella, 

2400 Generazione delle prime due stri- 
sce “compatte", 

2500-3000 Generazione delle due stri- 
sce frastagliate o interrotte. La riga 2500 
visualizza in modo dei tutto casuale 
(istruzione RND) la riga superiore* Le 
rimanenti linee BASIC generano in mo- 
da analogo (RND) quadratini “pieni" o 
“vuoti" nella riga sottostante* Un qua- 
dratino pieno viene però generato a pat- 
to che (riga 2S00) sia presente al di sopra 
di esso un identico quadratino pieno. In 
caso contrario* infatti, non sarebbe pos- 
sibile* seguendo le regole del gioco, ri- 
produrre in alto, te strisce frastagliate 
inferiori. 

3100 Dopo tre passaggi (K=2) il pro- 
gramma termina saltando alla routine 
del conteggio, 

3200-3400 Visualizzazione successiva 
di due quadratini aH’intemo della stessa 
cella video con conseguente “animazio- 
ne 11 del movimento. Notare il ricorso fre- 
quente alla routine di ritardo (GG- 
SUB38O0) che rallenta l'andatura del 
quadratino. 





RIGA X 2 
RIGA X’1 
RIGA X 


32 


32 

32 


32 

108 

; 

225 


32 


32 

108 


225 

225 


225 


108 


225 ! 

225 


225 

225 


225 ! 


Le ire strisce interessate dai "salto” dei quadratino: X e la riga di schermo percorsa da quadratino, X-Nl ila riga in re verse sovrasta 
ta dall'altra striscia X-NC1 U animazione sia del percorso, sia dei satto è dovuta alla particolare gestione di alcuni caratteri serigrafici che* 
in pratica t speziano in quattro parti eguali la cella video , 
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- VIC 20 


Mentre net Commodore 64 e nel C-/ó luti imo 
carattere dì una riga vìdeo è d quarantesimo, 
net caso dei Vie 20 è ìì ventiduesimo. Ecco, 
pertanto, il motivo deila tniziatizzazionc dette 
variabili nelle prime righe del programma 
Basic* 


350Q Esame del tasto premuto* Se il 
risultato è negativo, il quadratino prose- 
gue indisurbato ((301X33300) 

3 t KM)-44(X} Se il tasto premuto non e 
il salto (vedi figura 3) sì verificherà 
secondo l'animazione A-B-C-D-C-B-A, 
In caso contrario, dopo la "D \ si verifi- 
cherà il salto più alto (successione AB- 
C-D-E-F-E-D-C-B-A), 

4500-4700 Visuale-azione del punteg- 
gio raggiunto. Questa routine non fa al- 
tro che contare l'eguaglianza dello stesso 
codice nelle corrispondenti celle delle 
due strisce doppie. 

/ 


IMPARATE A SOFISTICARE 
IL LISTATO 


Come avevamo detto all'Inizio, propo- 
niamo ora alcune sofisticazioni che i più 
volenterosi realizzeranno non solo per 
rendere più divertente (e difficile) il gio- 
co, ma soprattutto per incrementare la 
propria esperienza nella gestione delle 
PQKE di schermo. 


Per i principianti 

Avete il computer da poco tempo? Be- 
ne, dopo averlo digitato così conio ù pub- 
blicato su queste pagine, apportate al 
listato le seguenti modifiche; 

* eliminate dalle righe iniziali, dopo 
averle individuate, tutte le istruzioni che 
non riguardano il vostro computer; 

* fate in modo che il salto più alto avven- 


ga premendo, invece del tasto "Z'\ il 
tasto “Q 1 o qualunque altro tasto dì vo- 
stro gradimento (riga 4100) ; 

* inserite all’inizio un'istruzione INPUT 
che consenta di far scegliere al giocatore 
il tasto da premere per effettuare il salto 
alto; 

• fate in modo che il salto corto avvenga 
non nel caso della pressione di un tasto 
qualsiasi, diverso da “Z'\ ma di un tasto 
particolare da voi scelto (intervenire nel- 
la riga 3500 aggiungendo qualche 
istruzione); 

• come per il punto c fate effettuare la 
scelta del salto corto al giocatore ; 

* aggiungete la possibilità di esaminane 
le istruzioni del gioco (ed inseritele op- 
portunamente nel listato) ricorrendo ad 
una subroutine. 


Per chi possiede il computer 
da alcuni mesi 

* Aggiungete, al temine del gioco, la 
possibilità di continuare il gioco stesso o 
di terminarlo. Memorizzate, in caso di 
prosieguo, il numero di giocate ed il pun- 
teggio per ciascuna di esse; 

* introducete la possibilità di far giocare 
alternativamente due persone memoriz- 
zando. volta pei voìia, i punteggi; 

* inserite, all'inizio del gioco, la scelta 
sul numero di passaggi del quadratino 
(riga 3100 ); 

* inserite la scelta del grado di difficoltà 
intervenendo sul ritardo della subroutinc 
3800 (variabile J): 

* intervenite sol grado di difficoltà mo- 
dificando il valore dopo il segno maggio- 
re ( > ) pre seme nelle righe 2501) e 28(K); 


* fate in modo che il bordo dello scher- 
mo cambi colore ad ogni avanzamento 
del quadratino; 

* inserite una suhroutine sonora con 
frequenze diverse a seconda se si effettua 
un salto basso oppure alto. 

Per gli “esperti” 

* Fare in modo da separare maggior- 
mente le due strisce tra loro allo scopo di 
rendere più difficoltoso il confronto du- 
rante il gioco; 

* fate in modo che il quadratino vada da 
sinistra a destra o viceversa in modo 
casuale; 

* fate in modo che la corrispondenza tra 
le due strìsce sia speculare oppure del 
tipo invertito (destra sinistra); 

* inserite un controllo sulla variabile 
TI5 e valutate il punteggio non sul nume- 
ro di passaggi ma sul tempo trascorso 
da 11' ini zio del gioco; 

* inserite la possibilità di far procedere 
due quadratini l’uno al di sopra e l'altro 
al di sotto della striscia da frastagliare. 

In conclusione,*. 

Alcuni lettori hanno richiesto di pub- 
blicare brevi listati idonei ad aumentare 
la propria esperienza di programmazio- 
ne. Con il listato pubblicato, e soprattut- 
to con i suggerimenti forniti, speriamo di 
cs.se r venuti incontro a quella fascia di 
utenza che, giustamente, richiede non 
tanto di utilizzare "passivamente'' il cal- 
colatore. ma di "com prenderlo" con suf- 
ficiente padronanza. 
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1000 

REM 

IMPARIAMO 

1 100 
1200 

REM 

■ 

* 

R PROGRAMMARE 

1300 

REM 

MICRO ’6 IOCO 

1400 

REM 

PER QUALSIASI 

1500 

1800 

REM 

■ 

■ 

COMPUTER 


1700 PR I NT" [CLEAR ] 1 - C-64" 

1300 PR I NT ”H - C - 1 6 " 

1300 PR INT"3 - VIC £0" SPRINT 
2000 INPUT HJ:IF R$=*3“ THEN IZ=7B8 
0 : NC =43 : NI =21 i N3= 132 : N4 = 1 54 : N2 
=33 

2103 IF A*=“3" THEN PR INT* ICLEAR I " : 
FOR 1=38430 TO 333 11: PURE 1,0: 
NEXT : GOTO 2400 



J. Heilbofr, R. Talbott 
GUIDA AL COMMODORE 64 

pao. 440 L. 36.000 
tSoN 887700001-5 


£200 PRINT" [OLEARI 12=1024: IF Ai=" 
2 " THEN 12=3072 

2300 NC=73 s NI =33 : N2 = 160 : N3=240 : N4=2 
80 

2400 FOR 1=0 TO NCJPOKE 12 + I +T4C+ 1 , i 
60 : NEXT 

2500 FOR 1 = 1 TO NC/2 + 1 : I F INT(RNO<0 
)*10>>1 THEN POKE 12 +N3+ 1,160: 
GOTO £700 

2G00 POKE IZ + 1 +N3 , 32 

2700 NEXT : FOR 1=3 TO Ni 

2800 IF RNB(0)*10>2 AND PEEK ( IZ + I +N 
3 > = 160 THEN POKE 12 + I +N4 , 160:G 
OTO 3000 

2900 POKE 12 + 1 +N4 , 32 

3000 NEXT: REM A, DE SI MONE 

3100 IF K >2 THEN GOTO 4500! REM SOF 
TUIARE 

3200 X = IZ +N2 : REM & DIDATTICA '85 

3300 J =50: POKE X, 123: GOSUB 3800 :POK 
E X 1 08 

3400 GOSUB 3800 

3500 GET A*: IF At THEN GOSUB 3900 

3600 POKE X ,32 :X=X + 1 : IF XM2+N2+N1 
THEN K=K + t iGOTG 3100 


R. Jdtries, G. Fisher, B. Sawyei 

DIVERTIRSI GIOCANDO CON IL COMMODORE 64 

pag. 280 L. 22.000 
ISBN 8877000 04 -X 

H Peckham 

IL BASICHE IL COMMODORE 64 IN PRATICA 

pao. 312 L 27.000 
ISBN 8B77QC0Q9-Q 

P, Hoffman.T, Nicoloff 
EL MANUALE MS-DOS 

pag. 264 L. 25.000 
fcBN SS770CHD 1 B-X 


NOVITÀ LIBRI 

K. Skrer 

L’ASSEMBLEA PER IL COMMODORE 64 E IL VlC-20 

pao. 368 L. 35.000 
ISBN 86770001 1-2 

P, Scharf 

GENITORI NELL'ERA DEL COMPUTER 

paq. 256 L 19.000 
ISBN 887700023-6 

S. Harri no i.on 

COMPUTER GRAPHICS - CORSO DI PROGRAMMAZIONE 

pag. 520 L. 39.000 
ISBN 887700601-3 


NOVITÀ SOFTWARE 


3700 GOTO 3300 

3800 FOR 1=1 TO J: NEXT! RETURN 
3900 J = 1 : POKE X, £25: GOSUB 3800 
4000 POKE X-Nl-1 , 108: GOSUB 3800 :POK 
E X-Nl-1 ,2£5: GOSUB 3800 
4100 IF Pi*<>*2 u THEN 4400 
4£00 PGKE X -NC - 1 , 108 'GOSUB 3800 :FOK 
E X -NC - 1 , £25 : GOSUB 3800 
4300 POKE X -NC- 1 , 108: GOSUB 3800 :POK 
E X-NC-1 ,32! GOSUB 3800 

4400 POKE X-Nl - 1 , 108: GOSUB 3800 :PQK 
E X -NI - 1 ,32! RETURN 
4500 PRINT" [HOME! [3 DOWN:T':FGR 1=0 
TO NC 

4800 IF PEEK < 1 2 +N3 + I > =PE£K <12 + 1 +NC + 
U THEN XX=XX+1 
4700 NEXT: PRINTXX "PUNTI " 


A. BJeasbv 

ASSEMBLER/DISASSEMBLER 


PER IL COMMODORE 54 


cassetta L, 24.000 
ISBN Sfi 7 7 009 0-4- 7 


distribuzione in libreria; 

Messaggerie Libri S,p.A< 

Via Giulio Cercane. 32 
£0141 MILANO MI 

ter. 02 8438141-8467341, telex 310672 MESSÌI I 

McGRAW-HILL BOOK COMPANY GmbH 

baderna nnbogen 136 

D-2000 Hamburg 63 

REPUBBLICA FEDERALE TEDESCA 

tei. h- 49 40 5382081 , telex 2164048 MHEJC O 



{segue da pagina 25} 


5 REM VIC £0. C- 16 

6 REM 0-64 . PLUS -4 

10 REM BASSA RISOLUZIONE 
50 REM LISTATO 1 
30 REM ITALIA 
40 : 

50 REM #***’»#************#*#**** 
100 BS=B! REM DISTANZA DAL BORDO 
110 DIM A$C 16 > SPRINT CHRÌU47) 

120 POR K=0 TO 7: READ A 
130 A*<K>=CHR$(A> 

140 A*(K+8)=CHR*< 181+A*(K)+CHR*( 14 
6 ) 

150 NEXT 

160 : 

170 PRINT TAB CBS ) ; S READ A* 

180 1F Af = " 2 “ THEN PRINT CHR*<1 
9 > : END 
190 <3=0 

£00 Q=Q+1SIF G>LEN(ASO THEN £90 
£10 NU=VAL<M1D$CA*,Q>) 

£20 A=ASC<MlD*(A*,Q,n>-65 
..£30 IF NU=0 THEN £80 
£40 Q-Q + l s IF NU >9 THEN Q=Q + 1 
£50 A=ASC <MID$( A*,Q ,1 ) ) -65 
£60 FOR K= 1 TO NU-1 
£70 PRINT A$(A) ; sNEXT 
£60 PRINT At<A>?sGOTO £00 
£90 PR INTS GOTO 170 
300 DATA 3H , 1 ?£ , 1 B7 , 1 90 
310 DATA 189,161,162,191 
320 REM #*#***#**#**# **.*##* ****** 
330 : 

480 REM DATA DISEGNO 
490 : 

500 DATA 6ABL 

510 DATA 5 ALL IMG 

520 DATA AAMLLL3IM 

530 DATA NIIL5I0F 

540 DATA L7I 

550 DATA K7ID 

560 DATA KIJ04IM 

570 DATA APAAD4IG 

580 DATA 5AN4IF 

590 DATA 4ACP4 IM 

S00 DATA 3AIFAEK3 JM 

610 DATA 3AIFAAEGID 

620 DATA 3AE4AEK41MG 

630 DATA AÀCLC6AK5IG 

640 DATA AAKIF6AE0I IJEKIC 

650 DATA AANIF8AE IFAAED 

660 DATA AAL1F9AN1C 


670 DATA AAKJD 10AJD 
680 DATA 14ANF 
690 DATA 3AB3GIE 
700 DATA 9AK3IF 
710 DATA 10AEOJI 
720 s 

730 DATA Z 



320 REM DIGITARE LE RIGHE 

321 REM DA 100 A 310 

322 REM DEL LISTATO N. 1 

323 ! 

324 REM NORD AMERICA 

325 s 

330 REM DATA DISEGNO 
340 DATA ABBG 
350 DATA BLIIM 
360 DATA G04ICANB 
370 DATA AEE6IJ 
380 DATA 3AK5 IDEMLGC 
390 DATA 3AB4 IMCAK I IF 
400 DATA 3AEGIMNIJC 
410 DATA 3AE10IC 
4£0 DATA 4A91ME 
430 DATA 3AB9ÌD 
440 DATA 3AN8IMC 
450 DATA 3AE8IJ 
460 DATA 4AJ5IJ1 
470 DATA 4AHK31DDAH 
430 DATA 5ADK 1 F 
490 DATA 6AB IMAB 
500 DATA 7AE0MID 
510 DATA 10AEKF 
520 DATA 1 2A0C 
530 DATA Z 



320 REM DIGITARE LE RIGHE 

321 REM DA 100 A 3 10 

322 REM DEL LISTATO N. I 

323 s 

3£4 REM FORMULA l 
3£5 s 
330 : 
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340 

DATA 

350 

DATA 

3B0 

DATA 

370 

DATA 

333 

DATA 

330 

DATA 

400 

DATA 

4 10 

DATA 

430 

DATA 

430 

DATA 

440 

DATA 

450 

DATA 

460 

DATA 

470 

DATA 

430 

DATA 


18A4GC 
3A3IF1 1A4IF 
3AOKODA3GC4IF 
BGCAFCAA4 I A I IKKFGGMGGL I 
NIFBDHAG4 IAI INNFfMfìllUl 
NIHL I I04A03 ILL IGOGK INI 
PANI I DC5AN8 INI NI 
FANI I0F5AN8I NINI 
NONI I MS ALE I DONIMI 
NIFNQKG4GI0I JLMJAIOI INI 
NIFAFFAA4 I AI INNFGIGIILI 
4AN3A4 IG4 1F86MGCEQ 
3A3IF3 1 A4 I F 
3A30D1 1A43F 
2 



470 REM 

471 REM 

472 REM 

473 : 
480 REM 


DIGITARE LE RIGHE 
DA 100 A 310 
DEL PROGRAMMA N. I 

GALEONE 


430 

500 

c 

1 

DATA 

I2ANF7AB 

5 10 

DATA 

3AB5AK I IFNI ICAAE IF IO 

520 

DATA 

ANCN6AI IF N3 13ANF I 1 

530 

DATA 

A N I L 5 AL OQHPO I DA AB I F I D 

540 

DATA 

AA IFC3AE3 IFNI IMBABGPGC 

550 

DATA 

AAKF 2 C3AE l IFN3 IMAAKF I IC 

5B0 

DATA 

AALF I ICAAB I IFN3 I JAALF I ID 

570 

DATA 

AB IF3 3 AB JOOHFOK JAAEOHOD 

530 

DATA 

ALIF3IAK3IFN3ICAEIFI IC 

530 

DATA 

B 1 1 F I IFAAKI IFN4 ICANF3I3A 

600 

BC 

DATA 

3AN5AL I1FN4 IDB IF I IDABPD 

610 

DATA 

AG IAL30ML00ID3ALGGI JD 

820 

DATA 

AS IF3APNFH3AN5 I JD 

630 

DATA 

A 6 IMAAPANFAHA6L5 IF 

640 

DATA 

A06 I CP AANFAAH5 I JO 

650 

DATA 

AN7 I 3ANFABL5 ID 

660 

DATA 

A9IGGLM3I 

670 

DATA 

AB IMIMIMIMIMIMIMIM3 IF 

630 

DATA 

AL 18 IO 

630 

DATA 

AK 17 ID 

700 

DATA 

AA 16 IO 

710 

720 

1 

■ 

DATA 

Z 




IL PORTA COMPUTER 
CHE FA 


Mobile di med dens., 
laccato bianco, che ti per- 
mette di raggruppare tutti i 
componenti del tuo computer 
in uno spazio di citi. 64x 45. eli- 
minando al tempo stesso tutti i fil 
esterni. 

I lettori che invieranno il coupon qui a 
destra, compilato in ogni sua parte, 






riceveranno il K16 a sole 
L. 85,000; oppure il set completo 
(esclusa la sedia) a L. 175.000; oppure solo 
la scrivania a L. 95.000. Spedizione postale ^ . ' 
e IVA comprese nel prezzo. ' 
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di Amorusi G. Battista 

Via Monta Ibano, 25L - Loc. Mercatale 
Tel. (057t) 501563 - 50059 VINCI (Fi) ■ Italy 
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giochiamo con. . . . 

a cura di Armon 


The captive 



Ve ne capitano di tutti i colorì. Oggi 
infatti siete caduti in una botola che vi ha 
trasportato nella città degli Zombi, Que- 
sti sbucano dal terreno come fossero tal- 
pe „ vi camminano sotto i piedi e quando 
vi prendono siete proprio finiti perchè 
addirittura vi disintegriate, Durante la 
pericolosissima passeggiata, troverete al- 
cuni oggetti per terra che vi serviranno 
moltissimo durante Sa partita, La chiave 
blu e quella verde sono gli oggetti più 
importanti, perchè vi permetteranno di 
passare attraverso i muri che posseggono 
lo stesso colore della chiave da utilizzare. 

I frutti che raccoglierete e man ge rete 
vi permetteranno di aumentare lavila dì 
quattromila o cinquemila secondi (a se- 
conda del frutto mangiato). Prose- 
guendo, si potranno trovare delle mappe 
che vi serviranno per visitare le città che 
si trovano vicine a quella di partenza. Un 
consiglio sa vi trovate in difficoltà, beve- 
te la pozione magica o rifugiatevi in una 
nelle porte delle case più virine 


Comando tastiera 

n = basso 
m = alto 
z = sinistra 
x = destra 

b. spazio ” raccolta oggetti. 


IDEA 7 

GIOCAMLITA’ E SUONO 7 
ÀNIMZIONE 8 

VOTO 7 


Chicken chase 


C è dà lavorare, ragazzi! Perchè? L'arzil- 
lo gallo Rie deve essere molto abile a 
difendere le uova della sua graziosa con- 
sorte, Il nemico è sempre in agguato ed è 
impersonato da talpe c da topi che come 
sapete sono golosissimi di uova di ogni 
specie. Se non sarete abili prenderete 
tante botte. Ma i problemi non finiscono 
qui: ci sono infatti anche i bruchi, che 
qualche volta sbucano dal terreno che 
non solo è un ottimo cibo, ma anche 
favoriscono un ottimo punteggio. En- 
trando dalla porta su cui è raffigurato un 
cuore, sì sentirà una musichetta che sta 
ad indicare l'arrivo dì nuove uova e quin- 
di di conseguenza nuove difficoltà per 
Rie. Più si va avanti, piu le difficoltà 
aumentano perchè la stanchezza ti assale 
e rallenta le tue capacità. 

Se sarai abile riuscirai a far nascere 
senza problemi i tuoi pulcini. 

Un consigliti: curate bene le vostre uo- 
va e cercate di averne tante. 


Comando tastiera 

z ” sinistra 
x = destra 
collon = sopra 
full stop = sotto 
b. spazio = beccata 


IDEA 8 

GIOC ABILITA’ SUONO 9 
ANIMAZIONE 7 

VOTO 8 
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TUFFATI NEL FANTASTICO 
MONDO MASTERTRONIC l ™ 

per vivere nuove emozionanti 
avventure piene di suspence e 
frenetiche animazioni» 

e r 

e 1 

QUALITA-PREZZO soIqEX. 900 è ia grande proposta 

MASTERTRONIC per conquistare tanti amici. > 

+ 


FIHDERS KCEPEHS 
CBW 64 • M&K - 3PECT0UV 


SPECTIPEOe 

Commodore 


ACTEQN DIKCR 

Ctìhl 6fl - SPECTRUM 






OIGIElLE 



Specie !i confezioni in fermato 
economico, studiate apposifa/nerite per 
fa pulizie dei minicomputers , contengono 
prodotti , facili do osare, che assicurano 
uno corretta protezione dei video, 
tastiere, drive 3" 1/2, 5" 1/4. 
In vendita anche pressa > negozi Buffetti. 


fornisce ogni altro tipo di accessoria per computer. 


00199 Roma , Via Catalani 23 - Tei 8392646-8393438 - Telex 621288 


TUTTO 

PER LA PULIZIA 
DEL COMPUTER 


Lo polvere, il fumo, b contaminazioni 
esterne, possono deteriorare le 
apparecchiature o cancellare i dati , 
Un costante uso dei prodotti pulizia , 
mantiene inalterati dischi nastri 
superici, carte di credito, ecc. 

Tutti i prodotti sona omologati dalle 
migliori case prodottici dì drive. 


Distributore esclusivo per l'ita li a 



GIOCHI DI GUERRA 








Robert Giordani - Casella postale 4G - 00042 Domenico Rizio - Via Capestrano 20 - 66013 Umberto Piovesi - Viale dei Tigli 6/29 - 20020 
Rocca Priora (RM) - tei. 06/9468627. Chicti Scalo - tei. 0871/584239. Arese (MI) - lei 02/9380022, 


Mauro Gualtieri - Via Conciliazione 12 - 
61011 Gabicce- tei. 0541/967406 

Alfredo Iknìncasa - Via Buccini A - 81100 
Caserta - tei. (0823)324778 

Tito MeJoncclH - Vìa Nicola Serra 44 - 871(1) 
Cosenza - tei. 0984/38377. 

Luciana Lucchetti - Via Oberdan 8 - 17027 
Pietra Ligure (SV) - te!. 019/644024, 

Luca Gioii! - Via Adua 7 - 4410*0 Ferrara - teL 
48982, 

Claudio Teccucci - Via Dell' Acquedotto Pao- 
lo 163 - 00168 Roma - te!, 06/6795816 

Bruno Sala c/o Ditta Tetma - Via Provinciale 
65 - 22030 Li pomo - tei a / 031/280970 u/ 
031/280455. 

Anna Badai - Località Uig 192 - 34010 - S, 
Giorgio Valle (TS) - te). 040/813145. 

Cristiana Carlona - Via Cupra montana 3/C - 
60100 Ancona - tei. 896656. 

Marco Coietti - Via Principe 1 - 38023 Mollare 
tei. 0463/39181 

Francesco Costantini - Via Due Zadei 20 - 
25015 Desenzano - tei. 030/9142101. 

Fabio MoLìnari - Via Gerolamo Belloni 122 - 
00191 Roma, 

Federico Chicli - Vìa Volturno 1 - 10 133 Tori- 
no -tei. 011/6506228. 


Lorenzo Giammai - Via Zandlé 19 * 25100 
Brescia - tei. 030/294505, 

Alfonso Dinota - Via Da vila 61 - 00179 Roma - 
tei. 06/7884472. 

Gianni Mazzesi - Via Cella 329 - 48020 S. 
Stefano (RA) - tei. (1544/573529, * 

Gabriele Cresta - Via Caduti dei 16 Marzo 4/ - 
42049 S. Ila rio D'Enza (RE) - td. 0522/ 
672239. 

Francesco Rotondo - Via 8ra 3 - 10042 Niche- 
lino (TQ)-td. 011/626403. 

Lucio Guanto - Via A. De Gasperì 9 - 84018 
Scafati (SA) - tei. 081/8639480. 

Sergio Lonzi - Via Roma 27 - 17023 Ceriale - 
td. 0182/90618, 

Gabriele Raitì - Via Carlo Rosselli 1 13 - 96016 
Lentìni (SR) - tei. 095/945079. 

Carmela e Gtvanna lappalo ~ Via Bcllinzona 
492 - 98100 Messina - tei. 090/43360. 

Fabia Pioli - Via Al Garbo 6/5 - 16159 Genova 
teL 010/446998. 

Litigi De Negri - Via Poggia 22 - 16131 
Genova. 

Carlo Mocetlin - Via Carducci 41 - 36067 Ter- 
mine di Cassola - tei. 37509. 

Massimo Sellerà - Via Don Mmzoni 72 -45100 
Rovigo. 

Agostina Lizzeri - Via Claudio Montcverdi 18 
07100 Sassari - tei. 079/244403. 


Luca Vannucci - Via Vittorio Emanuele Or- 
lando 8 - 06100 Perugia - teL 74806, 

Aram Gurektan - Via Foresto Casonetio 8 - 
31011 Asolo - teL 0423/529433. 

Massima Rotondi - P.zzu Fluitino 9 - 20148 
Milano -tei, 02/4033173. 

Giovanni Muse il lo . Via Giulio de Petra 41 - 
71100 Foggia - tei. 0881/35988. 

Andrea Bru entra - Via Gratti 39 - 31050 Vi- 
snadello (TV) - tei. 928252. 

Paola Carlizza- Via Michele Amari 68 - 00179 
Roma -tei. 06/7889517. 

Riccardo Mon torri - P.zza Papa Giovanni 
XXIII 18 - 56048 Volterra (PI) - tei, 86277. 

Roberto Boccia - Via Ghirardelli 27 - 24100 
Bergamo - td. 035/245677. 

Roberto Maugert - Via Bratteati 6 - 95128 
Catania - tei. 095/432876 

Davide Storti - Via don Minzoni 27 - 54033 
Carrara (MS) - teL 0585/74384 

Aulir Baldissera - Via Clmarosa 68 - 30030 
Robegano (VE) - td. 041/482570, 

Francesco Trovata - Via M secarono 10-95(114 
Giarre(CT). 

Antonio Maio - Via S. Agostino 9 - 98057 
Milazzo (ME) - tei. 090/921261. 

Amami Petit - La Rabade, Saint - Quentin - la 
Potè rie, 30700 Uzes - td, 16 (66) 222284. 
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Mirco Zanca - Via Enrico Fermi 3 - 46035 
Ostigli a (MN) - lei. 0386/31657. 

Amir Baldisscra - Via Cimarosa 68 - 3003U 
Robégano (VE) - tei. 041/482570, 

Stefano Milanesi - Via Cernia del Naviglio 22- 
20123 Milano - td, 02/8322089. 

Tommaso L in trami - Via Inganni 3 - 2(9147 

Milano - tei. 02/4147181. 

Giancarlo tacchini - Via XXV Aprile 16 - 
Si re sa (NO) - td. 30397. 

Giovanni Baiocchi - Via Rosta 25 - 10143Tori- 
no - td . 011/774148. 


Michele Tampk-ri - Via fariiti 27 - 48020 S. P. 
In vincoli (RA) - tei, 0544/553018. 

Michele Arcani - Via Giovanni XXIII 14 ■ 
29017 Fiorcnzuola (PC) - td. 0523/962401, 

Pietro Coletta * 25 - 00060 Canale Monterano 
(Roma) -tei, 06/9027228 

Sebastiano Recupero - Via Ugo la Malta 24 - 
98051 Barcellona P C (ME) - td. 9721333. 

Stefana Angioli - Via Otricoli 42 - 001K1 Roma 
tei. 06/7829304. 

Claudio Martini - Via Isabella Novaro 11 - 
18018 Taggia (TM) - tei. 0184/45274, 


Paolo Cangi a ne Hi - Via Gslavia 43 - 00195 
Roma -tei 06/385173. 

Nicola Delfino - Via Piave 13 -80025 Casandri- 
no (NA) - tei. 081/8334213. 

Maurizio Prelati - Via Agilla 40 - 06060 Agclb 
(PC) -lei. 075/965151. 


Andrea Gobbe - P.zza Negreili 3 - 38100 Tren- 
to - tei, 0461/30408. 

Guido f>emichelis - Via Sondrio 9 - 10144 TO' 
rino- tei. 011/143038, 

i 

Gianni Mazzeri - Via Cella 329 - 48020 S. 
Stefano (RA) - lei. 0544/573529. 


ATTENZIONE!!! 

A tutti! 


Commodore Computer Club 

Come farsi conoscere attraverso 
le pagine della nostra rivista. 

Moki circoli si sono aperti e molti sono usciti allo “scoperto 1 dopo il nostro invito ad aprire un Computer Club, apparso sul N. 21 di C.C.C. 


Allo scopo di rendere un servizio migliore Hi nostri lettori che intendano contai la re uno di questi simpatici circoli culturali, i segretari dei circoli 
stessi sono pregati di compilare il seguente tagliando, usua fotocopia, e di inviarlo in busta chiusa (affrancata secondo le vigenti tariffe postali) a: 

Systems Editoriale 
Servizio Notizie Computer Club 
Viale Famagosta, 75 
Milano 

La completa compilazione dell intera scheda, ò INDISPENSABILE per la pubblica/ io ne gratuita sulla nostra rivista, 


Nome del club: Sede del club: Vìa , , 

■* » f < ■ n ■ ■ m ■ i ii ii J . ìj . li. i h ■ H 0*1 p n i i n i «, i > , ,i* ! « u • i. i I 

C.ArP. ,, Città ni» Piov. : ............... + , . r , r r , 1 cl. Prefisso! . » + L „ , N , 

Presidente: Segretario: „ N soci fondatori: ... 

N- di soci finora iscritti: — Data di fondazione: — Giorni di apertura della sede: 

Orario di apertura: Computer* disponibili (specificare): . 

Periferiche disponibili (specificare): Programmi disponibili (N . approssimativo): 

V ideogiochi N.: Professionali N,: ..... . Biblioteca Tecnica N. volumi: 

N. abbonamenti a riviste italiane: N. abbonamenti a riviste straniere: ... Quota di iscrizione L. .... 

(Specificare scantinale, mensile eoe,) 

Attività previste: Bollettino periodico emesso: Attività già svolle: 

Eventuali sponsor: Disponibilità alla sponsorizzazione (sl/fto): 



-■sBPprfPPrr 


Il sottoscritto presidente del Computer Club ........... autorizzo la Systems Editoriale a diffondere notizie riguardanti 

le attività del circolo culturale citato anche se pervenute in redazione in via non ufficiale. 

Dichiaro inoltre che le informazioni comunicate corrispondono al vero e che, in caso di difformità accertata da parte dì incaricati della Systems 
stessa, Commodore Computer Club, allo scopo dì tutelare la buona fede degli utenti della rivista, si riserva il diritto - dovere di avvertire i propri 
lettori od modo e nella forma che riterrà più opportuni. 

I n fede 


78 - Commodore Computer Club 



Alcuni utili consigli e trucchi 
per i lettori di Commodore 
Computer Club , 


Abbiamo notato che chi ha appena ac- 
quistato un computer Commodore si tro- 
va di fronte ad alcuni dubbi apparente- 
mente irrisolvibili. Per venire incontro ai 
neo-possessori, riportiamo qui di seguito 
alcuni consigli indubbiamente preziosi; 
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1 - Se utilizzate il registratore e buona 
norma, subito dopo il salvataggio ( = re- 
gistratore ) dei programmi che digitate da 
riviste, effettuare l’operazione di verifi- 
ca. Questa si compie riavvolgendo il na- 
stro e digitando il comando VERIFY se- 
guito dalla pressione del tasto Return 
(vedi libretto di istruzioni allegato al 
computer). Se alla fine de 11 1 operazione 
compare il messaggio VERIFY ER- 
RO R, è necessario ripetere 3 'intera pro- 
cedura (registrazione + verifica). 

2 - Se il caricamento dei programmi (da 
nastro o disco) avviene con difficoltà 
{ LO A DIN G ERRORI, è probabile che 
Ciò sia causato dalla vicinanza degli appa- 
recchi al televisore, Allontanandoli tra 
loro si impedisce ai campi magnetici di 
alcuni TV di influire negativamente sul 
trasferimento dei dati 

3 - Se Fatlonlanamemo del registratore 
dal l'apparecchio TV non produce alcun 


vantaggio, è probabile che il programma 
sia stato registrato male o che la testina 
del registratore sia disallineata. Con 
molta cautela, in quest’ ultimo caso, ruo- 
tare con apposito cacciavite la vite di re- 
golazione di non più di un quarto di giro 
in verso orario oppure antiorario fino a 
che il caricamento non riesce. 

4-1 programmi che è possibile trascrive- 
re sul vostro calai latore sono ber specifi- 
cati. I listali "universali” riportano, su 
Commodore Computer Club, la dicitura 
” QU A LS I AS I COM PUTE R’\ E' possi- 
bile, con le dovute eccezioni, adattare 
listati specìfici per il Commodore b4 ai 
Vie 20, ai C-16 o viceversa. Questa è 


però un'operazione che può riuscire a 
persone piuttosto esperte e che possono 
disporre dei vari computer: non esiste, 
infatti, una regola unica e generale di 
adattamento di programmi ma, volta per 
volta, le regole da applicare cambiano di 
continuo e necessitano in ogni caso di 
una verifica sul calcolatore, 

5 - Un'elevata percentuale dei nostri let- 
tori incontra difficoltà nel digitare i pro- 
grammi da noi pubblicati. Riportiamo, 
pertanto, alcune in formazioni utili per la 
digitazione dei listati: i cara Iteri "specia- 
li" bianchi su fondo nero (semi -grafici in 
"re verse”) che rappresentano precisi co- 
mandi peri computer Commodore, sono 
riportati nel listato di esempio nella pagi- 













BASIC 


na accanto così come appaiono digitai 
doli sii video o su stampante, mentre a 
destra come li rappresentiamo nei nostri 
listati. 

La riga 36fL ad esempio, deve così es- 
ser interpretata: 

Dopo aver battuto il carattere di virgo- 
lette (") che si ottiene premendo il tasto 
SH1FT insieme con il tasto 2, è necessa- 


rio battere il carattere CR5R DOWN (il 
tasto, cioè, che normalmente spostereb- 
be il cursore nella cella video 
sottostante). 

Analogamente, nella riga ISO del lista- 
to “tradotto' (dì destra), il termine [NE- 
RO] sta a significare che occoitc utilizza- 
re il carattere speciale del colore nero 


(tasto CTRL insieme con il tasto 1, vedi 
listato). 

Per ricordare in che modo vengono 
normalmente visualizzati i caratteri spe- 
ciali, nella seconda parte di ogni riga (do- 
po i REM) sono riportati i tasti che è 
necessario premere per ottenere il 
ca ra Tt e re -coma nd o ' spe eia 1 e ' \ 

[.a Redazione 


ìm REM I CARATTERI SPECIALI 
110 REM DEI COMPUTER COMMODORE 
120 REM COME APPAIONO NORMALMENTE 
130 REM SU VIDEO 0 SU CARTA, 

140 REM t CTRL = TASTO CONTROL) 

150 REM <CMDR “ TASTO COMMODORE) 
160 REM CCRSR = TASTI CURSORE) 

170 s 


1 80 

PR INT n m tf 

REM 

CTRL+l 

NERO 

190 

PR INT * 

R£M 

« 

+2 

B IftNCO 

203 

PRINT“3 U 

REM 

M 

+3 

ROSSO 

2 10 

PRINT"^* 

REM 

13 

+ 4 

AZZURRO 

2E3 

PR TNT 

REM 

W 

+5 

PORPORA 

330 

PRINT "il" 

REM 

*1 

+ 6 

VERDE 

340 

PRINT" a*' 

REM 

a 

+7 

BLU 

250 

PR INT 11 tu - 

REM 

» 

+8 

G TALLO 

2C3 

PR INT* 3" 

REM 

» 

+9 

REVERSE OH 

270 

PR I NT * ■" 

REM 

n 

+0 

REVERSE OFF 

280 

PR I NT M [3" 

REM 

CMDR+ t 

ARANC I 0 

290 

pr int 11 ir 

REM 

» 

+2 

MARRONE 

300 

PRINT"®" 

REM 

ii 

+ 3 

ROSSO CHIARO 

310 

PR INT "W 

REM 

LI 

+ 4 

GRIGIO 1 

320 

PR 

REM 

IT 

+ 5 

GRIGIO 3 

330 

PRINT* 1 ar 

REM 

■J 

+ 6 

VERDE CHIARO 

340 

PPINT-a 11 

REM 

»l 

+ 7 

BLU CHIARO 

350 

PR IMT"S" 

REM 

n 

+ E 

GRIGIO 3 

380 

PR ITNT * SI" 

REM 

CR 

£R 

IN BASSO 

3^0 

PR I MT w O p 

REM 

CR9R, 

A DESTRA 

380 

PPlNT-n B 

REM 

CRSR 

IN ALTO 

290 

PRINT n ir 

REM 

CRSR 

SINISTRA 


t 


4 P0 TNT“3S" i REM HOME 

413 PRI NT " ,J" i REM CANCELLA SCHERMO 

430 * 

430 REM ESEMPI 01 VISUALIZZAZIONE* 

44 0 PB T NT *■ .JMH—H " i RE M CANCELLA SCHERMO, 
450 i REM CR5R 0U4 DUE VOLTE 


4E0 i REM CRSR DESTRA TRE " 
470 * 

430 PRI MT*m" iREM BIANCO, CRSR SINISTRA 
490 s :REM DUE VOLTE E CRSR DUM 
530 : :REM UNA SOLA VOLTA 


100 

REM 

I CARATTERI 

1 10 

REM 

SPECIALI! COME 

120 

REM 

VENGONO INDICATI 

t30 

REM 

SULLE RIVISTE* 

140 

REM 

COMMODORE 

150 

REM 

E COMMODORE 

ISO 

170 

REM 

* 

b 

COMPUTER CLUB. 

130 

PRINT 

“ [NERO] " 

190 

PRINT 

" [BIANCO] " 

200 

PRINT 

” [ROSSO] " 

210 

PRINT 

■ CAZZUR 1 “ 

220 

PRINT 

" [VIOLA] 11 


330 PR INT’ [VERDE 1 " 

240 PR INT" CBLE'J] “ 

353 PR INT’ [GIALLO 3 “ 

SS0 PR INT” [RVS3 " 

370 PRINT" [RVOFF 3 " 

290 PR INT" [ARANCI" 

390 PRINT" [MARR 3 " 

300 PRINT" [ROSA 3 " 

3 10 PR INT" [GR IG IDI 1 " 

320 PPlfJT" [GRIGI03 3 ■ 

330 PRINT" [VEPOE33 ” 

340 PR T NT : i CELESTE 3 n 
350 PRINT" C6R IQ 1033 ” 

3S0 PRINT” [OOWM3 ” 

370 PRINT” CR IGHT3 " 

380 PR INT “ CUP 3 “ 

330 PRINT* tLEFTl " 

400 PR INT* [HOME 3 “ 

410 PR INT “ tCl-EAR 3 " 

430 i 

430 REM ESEMP I 
440 PRINT* [CLEAR 3 [3 DOWNI 
[4 RIGHT3* 

450 i 
460 : 

470 s 

480 PRINT" [B IANCO K2 LEFT 
3 C00WN3 ’ 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 




Registrate il mio abbonamento annuale a Commodore Computer Club, 

□ Ho versato oggi stesso il canone di L 28.000 a mezzo c/c postale n° 37952207 intestato 
a: 

Systems Editoriale - V ie Famagosta, 75-20142 Milano 

□ Ho inviato oggi stesso assegno bancario n 

por r importo di L. 28,000 intestato a Systems Editoriale 

Si prega di scrivere ii proprio nome e l'indirizzo completo m modo chiaro e leggibile. Inviare 
la fotocopia del bollettino di c/c postale. 


Considerando che i numeri 1 . 2 e 7 sono esauriti, vogliate inviarmi i numeri arretrati 

ai prezzo di L. 5.000 cadauno per richieste fino a 4 numeri, o di L, 4.000 cadauno per 

richieste oltre i 4 numeri arretrati, e perciò per un totale di L Sono a conoscenza che 

i fasci oli suddetti non saranno inviati in contrassegno e, pertanto, ho provveduto oggi stesso 

a versare si canone di L„. a mezzo c/c postale n. 37952207 intestato a: 

Systems Editoriale - V ie Famagosta, 75 - 20142 Milano 
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STATISTICA 

Non posseggo un computer □ 
Posseggo un C64 

Posseggo un VIC 20 ... . 

Posseggo un Commodore Pius 14 ... 
Posseggo un Commodore Plus 16 ... 
Posseggo un registratore dedicato .. 

Posseggo un drive 1541 

Posseggo una stampante 

Posseggo un monitor 




rrn-irhfci-i fr p ■ t I i -PBririph'Bi J f ► k ri ri + 


rHiitriHipi-J I - HI++-- 


' i i i «ài ràdi 


.i.b. < ■ 


- J | - - f- 4- - 


Si □ ... 

no J 

sia 

no — 

sìa -, 

no □ 

si a ... 

no Z 

sì a ... 

no 

sìa 

no Z 

si Zi ... 

no Z 

Si : ... 

no 



COLLABORAZIONE 


A titolo di prova vi snvto un articolo e la cassetta.... disco 

coi programma che intendo proporre per la pubblicazione di cui garantisco l'originalità. 



DOMANDÀ/Rf SPOSTA 
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RICHIESTA ARGOMENTI 

Mi farebbe piacere che Commodore Compu ter Club parlasse pm spesso dei seguenti 
argomenti; 

1 / 

i tjmmm. 44 4 ha 4 ..h. 7 tB-r-*jbB*iBBjiB.ij 

2 / 


h 4 4 4 . . . 4 ■ 


3 / — 


4 / ... 


■»■ + p - 1 - 1 


i t - i i è. - 4 t. h . 4 Iriiiiil i 


i • - - - 1 I - - i I 1 ■ -I l 


GIUDIZIO SUI PROGRAMMI DI QUESTO NUMERO 


Ho assegnalo un voto da 0 a 10 ar program mi che indico di seguito: 


A/ 


B/ 


C/ 


Voto 


Voto 


.Ih. . 41 . 41 .. ||.. 


Voto .. 


^ ^ ■ * t * I ■ ■ J,s ‘■r- 41 --^ I ria I Hit i - i i ■ ■ i b ■ ■ i ■ ■ ■ ■ ■ ■ ■ h ■ ■ 111111.11111 ■ ■ a 4 rHif rii ■ b ■ 4 1 ■■■«.■■in \/ OtÓ . . 1...4 , . 


PICCOLI ANNUNCI 




MfM* ■ ■ J + - 1 ■ H 


■ 1 h 4 .11. . . P . . P . . . r , , 


I I h . 1-41 |. 41 M Mlltl I t f 


CERCO/OFFRO CONSULENZA 
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■ b 4 4 ,1 ■ a it.a 4 .j_h 4 . 


■ 

■ 

I 

■ 

■ 

É 

■ 

■ 



■ 

■ 



0 

1 
1 


i 


o 

3 


£ 


z 

o 


ì 

\ 

O 

> 


? 


o 

to 

3 

O 

3 

<b 


1 i i ■ . . .h . 4 4 | P . 7 • » 7 1 1 < 


'/ 1 " 


« ■ il 1 ■ a I 1 


INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A: 


nani ■■ajihi... 4 h^li. 


I 


o 

3 

cu- 


COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 





VIDEOREGISTRI? 

VR insegna, aggiorna 
ti fa toccare con mano 

i 

tutte le novità 








